WORLD D^TELLECTUAL PROPERTY ORGANIZATION 
Intemanonai Btixvau 




PCX 

INTERNATIONAL APPLICATION PUBUSHED UNDER THE PATENT COOPERATION TREATY (PCT) 



(51) International Patent Classification ^ 
H04R 25/00 



(11) International Publication Nunil>er: WO 94/23548 

(43) International Publication Date: 13 October 1994 (13.10.94) 



(21) International Application Number: PCT/US94/04(X)4 

(22) International Filing Date: 6 April 1994 (06.04.94) 



(30) Priority Data: 
08/044346 



7 April 1993 (07.04.93) 



US 



(71) AppUcant: CENTRAL INSTTTUTE FOR THE DEAF 
[USAJS]; 818 South Euclid Avenue, Su Louis, MO 63110 
(US). 

(72) Inventors: ENGEBRETSON, Maynard, A.; 818 South EucUd 
Avenue, St. Louis, MO 63110 (US). 0'CX>NNELL, 
Michael P.: 818 South EucUd Avenue, Sl Louis, MO 
63110 (US), 

(74) Agents: SENNIGER, Stuart, N. et al.; Senniger, Powers, 
Lea via & Roedcl. One Metropolitan Square, 1 6th floor, St 
Louis, MO 63102 (US). 



(81) Designated States: CA, FI, JP, European patent (AT, BE. CH. 
DE, DK, ES, FR, GB, GR, IE. IT, LU, MC, NL, FT. SE). 



Published 

With international search report. 

Before the expiration of the* time limit for amending the 
claims and to be republished in the event of the receipt of 
amendments. 




INPUT ]- 

ir 



12- 



.10 



24 



46 



GAIN 

REGISTER 



(54) Title: ADAPTIVE GAIN AND FILTERING dRCUIT FOR A SOUND REPRODUCTION SYSTEM 
(57) Abstract 

Adaptive cocnpressivc gain and level de- 
pendent spectral shaping circuitry for a bearing 
aid include a microphooe to produce an input 
signal and a plurality of cb2mnels connected to 
a common circuit output (102). Each channel 
has a picscc frequency response. Each c hann el 
includes a filler (Fl, F2, F3, F4) with a preset 
frequency response Co receive the input signal 
(12) and to prcxiuce a filtered signal, a channel 
amplifier CO amplify the filtered signal to pro- 
duce a channel output signal, a threshold regis- 
ter (34) to establish a channel threshold level, 
and a gain circuit (24). The gain circuit in- 
creases die gain of the cbaimel amplifier when 
the channel output signal falls below the chan- 
nel threshold level and decreases the gain of 
the channel amplifier when the channel output 
signal rises above the channel threshold level. 
A transducer produces sound in response to the 
signal passed by the c<Knmon circuit output 
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ADAPTIVE GAIN AND FILTERING CIRCUIT 
FOR A SOUND REPRODUCTION SYSTEM 



Government Support 

This invention was made with U.S. Government 
5 support under Veterans Administration Contracts VA KV 

674-P-857 and VA KV 674-P-1736 and National Aeronautics 
and Space Administration (NASA) Research Grant No. 
NAGlO-0040. The U.S. Government has certain rights in 
this invention. 

10 Notice 

Copyright ©1988 Central Institute for the Deaf. 
A portion of the disclosure of this patent document 
contains material which is subject to copyright 
protection. The copyright owner has no objection to the 
15 facsimile reproduction by anyone of the patent document 

or the patent disclosure, as it appears in the Patent and 
Trademark Office patent file or records, but otherwise 
reserves all copyright rights whatsoever. 

Background of the Invention 

20 The present invention relates to adaptive 

compressive gain and level dependent spectral shaping 
circuitry for a sound reproduction system and, more 
particularly, to such circuitry for a hearing aid. 

The ability to perceive speech and other sounds 

25 over a wide dynamic range is important for employment and 
daily activities. When a hearing impairment limits a 
person's dynamic range of perceptible sound, incoming 
sound falling outside of the person's dynamic range 
should be modified to fall within the limited dynamic 

30 range to be heard. Soft sounds fall outside the limited 
dynamic range of many hearing impairments and must be 
amplified above the person's hearing threshold with a 
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hearing aid to be lieard. Loud sounds fall within the 
limited dynamic range of many hearing impa;irments and do 
not require a hearing aid or amplification to be heard. 
If the gain of the hearing aid is set high enough to 
5 enable perception of soft sounds, however, intermediate 
and loud sounds will be uncomfortably loud- Because 
speech recognition does not increase over that obtained 
at more comfortable levels, the hearing- impaired person 
will prefer a lower gain for the hearing aid. However, a 
10 lower gain reduces the likelihood that soft sounds will 
be amplified above the hearing threshold- Modifying the 
operation of a hearing aid to reproduce the incoming 
sound at a reduced dynamic range is referred to herein as 
compression, 

15 It has also been found that the 

hearing- impaired prefer a hearing aid which varies the 
frequency response in addition to the gain as sound level 
increases. The hearing- impaired may prefer a first 
frequency response and a high gain for low sound levels, 
20 a second frequency response and an intermediate gain for 
intermediate sound levels, and a third frequency response 
and a low gain for high sound levels. This operation of 
a hearing aid to vary the frequency response and the gain 
as a function of the level of the incoming sound is 
25 referred to herein as "level dependent spectral shaping." 

in addition to amplifying and filtering 
incoming sound effectively , a practical ear-level hearing 
aid design must accomodate the power, size and microphone 
placement limitations dictated by current commercial 
30 hearing aid designs. While powerful digital signal 

processing techniques are available, they can require 
considerable space and power so that most are not 
suitable for use in an ear-level hearing aid. 
Accordingly, there is a need for a hearing aid that 
35 varies its gain and frequency response as a function of 
the level of incoming sound, i .e, , that provides an 
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adaptive compressive gain feature and a level dependent 
spectral shaping feature each of which operates using a 
modest number of computations, and thus allows for the 
customization of variable gain and variable filter 
5 parameters according to a user's preferences. 

Summary of the Invention 

Among the several objects of the present 
invention may be noted the provision of a circuit in 
which the gain is varied in response to the level of an 

10 incoming signal; the provision of a circuit in which the 
frequency response is varied in response to the level of 
an incoming signal; the provision of a circuit which 
adaptively compresses an incoming signal occurring over a 
wide dynamic range into a limited dynamic range according 

15 to a user's preference; the provision of a circuit in 
which the gain and the frequency response are varied in 
response to the level of an incoming signal; and the 
provision of a circuit which is small in size and which 
has minimal power requirements for use in a hearing aid. 

20 Generally, in one form the invention provides 

an adaptive compressing and filtering circuit having a 
plurality of channels connected to a common output. Each 
channel includes a filter with preset parameters to 
receive an input signal and to produce a filtered signal, 

25 a channel amplifier which responds to the filtered signal 
to produce a channel output signal, a threshold circuit 
to establish a channel threshold level for the channel 
output signal, and a gain circuit. The gain circuit 
responds to the channel output signal and the channel 

30 threshold level to increase the gain setting of the 

channel amplifier up to a predetermined limit when the 
channel output signal falls below the channel threshold 
level and to decrease the gain setting of the channel 
amplifier when the channel output signal rises above the 

35 channel threshold level. The channel output signals are 
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combined to produce an adaptively compressed and filtered 
output signal. The circuit is particularly useful when 
incorporated in a hearing aid. The circuit would include 
a microphone to produce the input signal and a transducer 
to produce sound as a function of the adaptively 
compressed and filtered output signal. The circuit could 
also include a second amplifier in each channel which 
responds to the filtered signal to produce a second 
channel output signal. The hearing aid may additionally 
include a circuit for programming the gain setting of the 
second channel amplifier as a function of the gain 
setting of the first channel amplifier. 

Another form of the invention is an adaptive 
gain amplifier circuit having an amplifier to receive an 
15 input signal in the audible frequency range and to 
produce an output signal. The circuit includes a 
threshold circuit to establish a threshold level for the 
output signal. The circuit further includes a gain 
circuit which responds to the output signal and the 
threshold level to increase the gain of the amplifier up 
to a predetermined limit in increments having a magnitude 
dp when the output signal falls below the threshold level 
and to decrease the gain of the amplifier in decrements 
having a magnitude dm when the output signal rises above 
the threshold level. The output signal is compressed as 
a function of the ratio of dm over dp to produce an 
adaptively compressed output signal. The circuit is 
particularly useful in a hearing aid. 

The circuit may include a microphone to produce the input 
signal and a transducer to produce sound as a function of 
the adaptively compressed output signal. 

Still another form of the invention is a 
programmable compressive gain amplifier circuit having a 
first amplifier to receive an input signal in the audible 
35 frequency range and to produce an amplified signal. The 
circuit includes a threshold circuit to establish a 



20 



25 



30 



wo 94/23548 



PCT/US94/04004 



threshold level for the amplified signal. The circuit 
further includes a gain circuit which responds to the 
amplified signal and the threshold level to increase the 
gain setting of the first amplifier up to a predetermined 
5 limit when the amplified signal falls below the threshold 
level and to decrease the gain setting of the first 
amplifier when the amplified signal rises above the 
threshold level. The amplified signal is thereby 
compressed* The circuit also has a second amplifier to 

10 receive the input signal and to produce an output signal. 
The circuit also has a gain circuit to program the gain 
setting of the second amplifier as a function of the gain 
setting of the first amplifier. The output signal is 
programmably compressed. The circuit is useful in a 

15 hearing aid. The circuit may include a microphone to 
produce the input signal and a transducer to produce 
soixnd as a ftmction of thie programmably compressed output 
signal . 

Still another form of the invention is an 

20 adaptive filtering circuit having a plurality of channels 
connected to a common output, each channel including a 
filter with preset parameters to receive an input signal 
in the audible frequency range to produce a filtered 
signal and an amplifier which responds to the filtered 

25 signal to produce a channel output signal. The circuit 
includes a second filter with preset parameters which 
responds to the input signal to produce a characteristic 
signal. The circuit further includes a detector which 
responds to the characteristic signal to produce a 

30 control signal. The time constant of the detector is 

programmable. The circuit also has a log circuit which 
responds to the detector to produce a log value 
representative of the control signal. The circuit also 
has a memory to store a preselected table of log values 

35 and gain values. The memory responds to the log circuit 
to select a gain value for each of the amplifiers in the 
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channels as a function of the produced log value. Each 
of the amplifiers in the channels responds to the memory 
to separately vary the gain of the respective amplifier 
as a function of the respective selected gain value. The 
5 channel output signals are combined to produce an 

adaptively filtered output signal. The circuit is useful 
in a hearing aid. The circuit may include a microphone 
to produce the input signal and a transducer to produce 
sound as a function of tHe adaptively filtered output 
10 signal. 

Yet still another form of the invention is an 
adaptive filtering circuit having a filter with variable 
parameters to receive an input signal in the audible 
frequency range and to produce an adaptively filtered 

15 signal. The circuit includes an amplifier to receive the 
adaptively filtered signal and to produce an adaptively 
filtered output signal. The circuit additionally has a 
detector to detect a characteristic of the input signal 
and a controller which responds to the detector to vary 

20 the parameters of the variable filter and to vary the 
gain of the amplifier as functions of the detected 
characteristic . 

Other objects and features will be in part 
apparent and in part pointed out hereinafter. 

25 Brief Description of the Drawings 

Fig. 1 is a block diagram of an adaptive 
compressive gain circuit of the present invention. 

Fig. 2 is a block diagram of an adaptive 
compressive gain circuit of the present invention wherein 
30 the compression ratio is programmable. 

Fig. 3 is a graph showing the input /output 
curves for the circuit of Fig. 2 using compression ratios 
ranging from 0-2 - 
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Fig. 4 shows a four chctniiel level dependent 
spectral shaping circuit wherein the gain in each channel 
is adaptively compressed using the circuit of Fig. 1. 

Fig. 5 shows a four channel level dependent 
5 spectral shaping circuit wherein the gain in each channel 
is adapt ively compressed with a programmable compression 
ratio using the circuit of Fig. 2, 

Fig. 6 shows a four channel level dependant 
spectral shaping circuit wherein the gain in each channel 
10 is adaptively varied with a level detector and a memory. 

Fig. 7 shows a level dependant spectral shaping 
circuit wherein the gain of the amplifier and the 
parameters of the filters are adaptively varied with a 
level detector and a memory. 
15 Fig. 8 shows a two channel version of the four 

channel circuit shown in Fig. 6, 

Fig. 9 shows the output curves for the control 
lines leading from the memory of Fig. 8 for controlling 
the amplifiers of Fig, 8. 

20 Detailed Description of Preferred Embodiments 

An adaptive filtering circuit of the present 
invention as it would be embodied in a hearing aid is 
generally indicated at reference number 10 in Fig. 1. 
Circuit 10 has an input 12 which represents any 

25 conventional source of an input signal such as a 

microphone, signal processor, or the like. Input 12 also 
includes an analog to digital converter (not shown) for 
analog input signals if circuit 10 is implemented with 
digital components. Likewise, input 12 includes a 

30 digital to analog converter (not shown) for digital input 
signals if circuit 10 is implemented with analog 
components . 

Input 12 is connected by a line 14 to an 
amplifier 16. The gain of amplifier 16 is controlled via 

35 a line 18 by an amplifier 20. Amplifier 20 amplifies the 
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value stored in a gain register 24 according to a 
predetermined gain setting stored in a gain register 22 
to produce an output signal for controlling the gain of 
amplifier 16. The output signal of amplifier 16 is 
5 connected by a line 28 to a limiter 26. Limiter 26 peak 
clips the output signal from amplifier 16 to provide an 
adaptively clipped and compressed output signal at output 
30 in accordance with the invention, as more fully 
described below. The output 30 ^ as with all of the 
10 output terminals identified in the remaining Figs, below, 
may be connected to further signal processors or to drive 
the transducer (not shown) of a hearing aid. 

With respect to the remaining components in 
circuit 10, a comparator 32 monitors the output signal 
15 from amplifier 16 via line 28- Con^arator 32 compares 

the level of said output with a threshold level stored in 
a register 34 and outputs a comparison signal via a line 
36 to a multiplexer 38, When the level of the output 
signal of amplifier 16 exceeds the threshold level stored 
20 in register 34, comparator 32 outputs a high signal via 
line 36 o When the level of the output of aunplifier 16 
falls below the threshold level stored in register 34, 
comparator 32 outputs a low signal via line 36, 
Multiplexer 38 is also connected to a register 40 which 
25 stores a magnitude dp and to a register 42 which stores a 
magnitude dm. When multiplexer 38 receives a high signal 
via line 36, multiplexer 38 outputs a negative value 
corresponding to dm via a line 44. When multiplexer 38 
receives a low signal via line 36, multiplexer 38 outputs 
30 a positive value corresponding to dp via line 44 . An 

adder 46 is connected via line 44 to multiplexer 38 and 
is connected via a line 54 to gain register 24. Adder 46 
adds the value output by multiplexer 38 to the value 
stored in gain register 24 and outputs the sum via a line 
35 48 to update gain register 24. The circuit components 

for updating gain register 24 are enabled in response to 
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a predetermined portion of a timing sequence produced by 

a clock 50. Gain register 24 is connected by a line 52 

to amplifier 20. The values stored in registers 22 and 

24 thereby control the gain of amplifier 20. The output 

5 signal from amplifier 20 is connected to amplifier 16 for 

« 

increasing the gain of amplifier 16 up to a predetermined 
limit when the output level from amplifier 16 falls below 
the threshold level stored in register 34 and for 
decreasing the gain of amplifier 16 when the output level 

10 from amplifier 16 rises above the threshold level stored 
in register 34. 

In one preferred embodiment, gain register 24 
is a 12 bit register. The six most significant bits are 
connected by line 52 to control the gain of amplifier 16. 

15 The six least significant bits are updated by adder 46 
via line 48 during the enabling portion of the timing 
sec[uence from clock 50. The new values stored in the six 
least significant bits are passed back to adder 46 via 
line 54. Adder 46 updates the values by dm or dp under 

20 the control of multiplexer 38. When the six least 

significant bits overflow the first six bits of gain 
register 24, a carry bit is applied to the seventh bit of 
gain register 24, thereby incrementing the gain setting 
of amplifier 20 by one bit. Likewise, when the six least 

25 significant bits underflow the first six bits of gain 
register 24, the gain setting of amplifier 20 is 
decremented one bit. Because the magnitudes dp and dm are 
stored in log units, the gain of eunplifier 16 is 
increased and decreased by a constant percentage. A one 

30 bit change in the six most significant bits of gain 

register 24 corresponds to a gain change in amplifier 16 
of approximately i dB. Accordingly, the six most 
significant bits in gain register 24 provide a range of 
32 decibels over which the conditions of adaptive 

35 limiting occur. 
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The sizes of magnitudes dp and dm are small 
relative to the value corresponding to the six least 
significant bits in gain register 24. Accordingly, there 
must be a net contribution of positive values 
5 corresponding to dp in order to raise the six least 
significant bits to their full count, thereby 
incrementing the next most significant bit in gain 
register 24. Likewise, there must be a net contribution 
of negative values corresponding to dm in order for the 
10 six least significant bits in gain register 24 to 

decrement the next most significant bit in gain register 
24. The increments and decrements are applied as 
fractional values to gain register 24 which provides an 
averaging process and reduces the variance of the mean of 
15 the gain of amplifier 15. Further, since a statistical 
average of the percent clipping is the objective, it is 
not necessary to examine each sample. If the signal from 
input 12 is in digital form/ clock 50 can operate at a 
freguency well below the sampling frequency of the input 
20 signal. This yields a smaller representative number of 
samples. For example, the sampling frequency of the 
input signal is divided by 512 in setting the frequency 
for clock 50 in Fig. 1. 

In operation, circuit 10 adaptively adjusts the 
25 channel gain of amplifier 16 so that a constant 

percentage clipping by limiter 26 is achieved over a 
range of levels of the signal from input 12. Assuming 
the input signal follows a Laplacian distribution, it is 
modeled mathematically with the equation: 



30 



p(x) = l/(sqrt(2)R) e-«sqrt(2)|x|/R) (i) 

In equation (1), R represents the overall root means 
square signal level of speech. A variable F^ is now 
defined as the fraction of speech samples that fall 
outside of the limits (L, -L) . By integrating the 
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Laplacian distribution over the intervals (-<»,-L) and 
(L,+ob), the following equation for is derived: 

F, = e-ts^'''^^2)L/R) (2) 

As above, when a sample of the signal from input 12 is in 
5 the limit set by register 34, the gain setting in gain 
register 24 is reduced by dm. When a sample of the 
signal from input 12 is not in limit, the gain is 
increased by dp. Therefore, circuit 10 will adjust the 
gain of amplifier 16 until the following condition is 
10 met: 

(l-F^)dp = Fjrdm (3) 

After adaption, the following relationships are found: 

dp = Fj^(dp + dm) (4) 
R/L = sqrt(2)/ln(l + dm/dp) (5) 

15 Within the eibove equations, the ratio R/L 

represents a compression factor established by the ratio 
dm/dp. The percentage of samples that are clipped at ±L 
is given by: 



% clipping = * 100 (6) 

20 Table I gives typical values that have been found useful 
in a hearing aid. Column three is the "headroom" in 
decibels between the root mean square signal value of the 
input signal and 1 imi ting . 



<WO 9423548A1 I > 
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TABLE I 



10 



20 



dm/dp 


R/L 


R/L in 


0 


00 


00 


1/16 


23.3 


27.4 


1/8 


12.0 


21.6 


1/4 




16.0 


1/2 


3.5 


10.9 


1 


2.04 


6.2 


2 


1.29 


2.2 


4 


.88 


-1.1 


8 


.64 


-3.8 


16 


.50 


-6.0 


32 


.40 


-7.9 




In the above 


equations. 



clipping 
100 
94 
89 
80 
67 
50 
33 
20 
11 

6 

3 



15 Go, 



applies where G represents the gain prior to limiting 
and a represents the root mean square speech signal level 
of the input signal. When the signal level a changes, 
circuit 10 will adapt to a new state such that R/L or Ga/L 
returns to the compression factor determined by dp and dm. 
The initial rate of adaption is determined from the 
following equation: 

dg/dt = f^(dp(l-e-(s5^t(2)L/(Ga)))_dx„(e-(=9'^t(2)L/(Gs))) (7) 

in equation (7), f, represents the clock rate of clock 50. 
The path followed by the gain (G) is determined by solving 
25 the following equations recursively: 

dG = dp(l-e-(s'J^t(2)L/(Go)))_jini(e-{s<3rt(2)L/(Go))) (s) 

(9 ) 

G = G + dG ^ ' 



Within equations (8) and (9), the attack and 
release times for circuit 10 are symmetric only for a 
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compression factor (R/L) of 2.04. The attack time 
corresponds to the reduction of gain in response to an 
increase in signal a. Release time corresponds to the 
increase in gain after the signal level a is reduced. For 

5 a compression factor setting of 12, the release time is 
much shorter than the attack time. For a compression 
factor setting of .64 and .50, the attack time is much 
shorter than the release time. These latter values are 
preferable for a hearing aid. 
10 As seen above, the rate of adaption depends on 

the magnitudes of dp and dm which are stored in registers 
40 and 42. These 6-bit registers have a range from 1/128 
dB to 63/128(dB). Therefore, at a sampling rate of 16kHz 
from clock 50, the maxiraiam slope of the adaptive gain 

15 fvmction ranges from 125 dB/sec to 8000 dB/sec. For a 

step change of 32 dB, this corresponds to a typical range 
of time constant from 256 milliseconds to four 
milliseconds respectively. If dm is set to zero, the 
adaptive compression feature is disabled. 

20 Fig. 2 discloses a circuit 60 which has a number 

of common circuit elements with circuit 10 of Fig. 1. 
Such common elements have similar functions and have been 
marked with common reference numbers. In addition to 
circuit 10, however, circuit 60 of Fig. 2 provides for a 

25 programmable compression ratio. Circuit 60 has a gain 

control 66 which is connected to a register 62 by a line 
64 and to gain register 24 by a line 68. Register 62 
stores a compression factor. Gain control 66 takes the 
value stored in gain register 24 to the power of the 

30 compression ratio stored in register 62 and outputs said 
power gain value via a line 70 to an amplifier 72. 
Amplifier 72 combines the power gain value on line 70 with 
the gain value stored in a register 74 to produce an 
output gain on a line 76. An amplifier 78 receives the 

35 output gain via line 76 for controlling the gain of 

amplifier 78. Amplifier 78 amplifies the signal from 
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input 12 accordingly- The output signal from sunplifier 78 
is peak clipped by a limiter 80 and supplied as an output 
signal for circuit 60 at an output 82 in accordance with 
the invention. 

5 To summarize the operation of circuit 50, the 

input to limiter 80 is generated by amplifier 78 wbose 
gain is prograramably set as a power of the gain setting 
stored in gain register 24, while the input to comparator 
32 continues to be generated as shown in circuit 10 of 

10 Fig, 1. Further, one of the many known functions other 
than the power function could be used for programmably 
setting tiie gain of amplifier 78. 

The improvement in circuit 60 of Fig« 2 over 
circuit 10 of Fig, 1 is seen in Fig. 3 which shows the 

15 input/output curves for compression ratios ranging from 

zero through two. The curve corresponding to a compression 
ratio of one is the single input/output curve provided by 
circuit 10 in Fig. 1. Circuit 60 of Fig. 2, however, is 
capable of producing all of the input/output curves shown 

20 in Fig, 3, 

In practice, circuit 10 of Fig. 1 or circuit 60 
of Fig, 2 may be used in several parallel channels, each 
channel filtered to provide a different frequency 
response. Narrow band or broad band filters may be used 

25 to provide maximum flexibility in fitting the hearing aid 
to the patient's hearing deficiency. Broad band filters 
are used if the patient prefers one hearing aid 
characteristic at low input signal levels and another 
characteristic at high input signal levels. Broad band 

30 filters can also provide different spectral shaping 

depending on background noise level. The channels are 
preferably constructed in accordance with the 
filter/limit/filter structure disclosed in U.S. Patent No, 
5,111,419 (hereinafter "the '419 patent") and incorporated 

35 herein by reference. 
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Fig. 4 shows a 4-channel filter/limit/filter 
structure for circuit 10 of Fig. 1, While many types of 
filters can be used for the channel filters of Fig. 4 and 
the other Figs., FIR filters are the most desirable- Each 
5 of the filters Fl , F2, F3 and F4 in Fig. 4 are symmetric 
FIR filters which are equal in length within each channel. 
This greatly reduces phase distortion in the channel 
output signals, even at band edges. The use of symmetric 
filters further requires only about one half as many 

10 registers to store the filter co-efficients for a channel, 
thus allowing a simpler circuit implementation and lower 
power consumption. Each channel response can be 
programmed to be a band pass filter which is contiguous 
with adjacent channels. In this mode, filters Fl through 

15 F4 have preset filter parameters for selectively passing 

input 12 over a predetermined range of audible frequencies 
while substantially attenuating any of input 12 not 
occurring in the predetermined ranige. Likewise, channel 
filters Fl through F4 can be programmed to be wide band to 

20 produce overlapping channels. In this mode, filters Fl 
through F4 have preset filter parameters for selectively 
altering input 12 over substantially all of the audible 
frequency range. Various combinations of these two cases 
are also possible. Since the filter coefficients are 

25 arbitrarily specified, in-band shaping is applied to the 
band-pass filters to achieve smoothly varying frequency 
gain functions across all four channels. An output 102 of 
a circuit 100 in Fig. 4 provides an adapt ively compressed 
and filtered output signal comprising the sum of the 

30 filtered signals at outputs 30 in each of the four 
channels identified by filters Fl through F4. 

Fig. 5 shows a four channel filter/limit/filter 
circuit 110 wherein each channel incorporates circuit 60 
of Fig. 2. An output 112 in Fig- 5 provides a 

35 programmably compressed and filtered output signal 

comprising the sum of the filtered signals at outputs 82 
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in each of the four channels identified by filters Fl 
through F4, 

The purpose of the adaptive gain factor in each 

channel of the circuitry of FigSo 4 and 5 is to maintain a 

5 specified constant level of envelope compression over a 

* 

range of inputs « By using adaptive compressive gain, the 
input/output function for each chaxmel is programmed to 
include a linear range for which the signal envelope is 
unchanged, a higher input range over which the signal 

10 envelope is compressed by a specified amount, and the 
highest input range over which envelope compression 
increases as the input level increases.. This adaptive 
compressive gain feature adds an important degree of 
control over mapping a widely dynamic input signal into 

15 the reduced auditory range of the impaired ear» 

The design of adaptive compressive gain 
circuitry for a hearing aid presents a number of 
considerations^ such as the wide dynamic range, noise 
pattern and bandwidth found in naturally occurring sounds. 

20 Input sounds present at the microphone of a hearing aid 
vary from quiet soxinds (around 30 dB SPL) to those of a 
quiet office area (around 50 dB SPL) to much more intense 
transient sounds that may reach 100 dB SPL or more. Sound 
levels for speech vary from a casual vocal effort of a 

25 talker at three feet distance (55 dB SPL) to that of a 

talker's own voice which is much closer to the microphone 
(80 dB SPL)e Therefore, long term averages of speech 
levels present at the microphone vary by 25 dB or more 
depending on the talker, the distance to the talker, the 

30 orientation of the talker and other factors. Speech is 
also dynamic and varies over the short term. Phoneme 
intensities vary from those of vowels, which are the 
loudest sounds, to unvoiced fricatives, which are 12 dB or 
so less intense, to stops, which are another 18 dB or so 

35 less intense. This adds an additional 30 dB of dynamic 

range required for speaking. Including both long-term and 
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short-term variation, the overall dynamic range required 
for speech is about 55 dB. If a talker whispers or is at 
a distance much greater than three feet,, then the dynamic 
range will be even greater. 
5 Electronic circuit noise and processing noise 

limit the quietest sounds that can be processed- A 
conventional hearing aid microphone has an equivalent 
input noise figure of 25 dB SPL, which is close to the 
estimated 20 dB noise figure of a normal ear. If this 

10 noise figure is used as a lower bound on the input dynamic 
range and 120 dB SPL is used as an upper bound, the input 
dynamic range of good hearing aid system is about 100 dB. 
Because the microphone will begin to saturate at 90 to 100 
dB SPL, a lesser dynamic range of 75 dB is workable. 

15 Signal bandwidth is another design 

consideration. Although it is possible to communicate 
over a system with a bandwidth of 3kHz or less and it has 
been determined that 3kHz carries most of the speech 
information, hearing aids with greater bandwidth result in 

20 better articulation scores. Skinner, M.W. and Miller, 
J.D., Amplification Bandwidth and Intelligibility of 
Speech in Quiet and Noise for Listeners with Sensorineural 
Hearing Loss , 22:253-79 Audiology (1983). Accordingly, 
the embodiment disclosed in Fig. 1 has a 6 kHz upper 

25 frequency cut-off. 

The filter structure is another design 
consideration- The filters must achieve a high degree of 
versatility in programming bandwidth and spectral shaping 
to accommodate a wide range of hearing impairments. 

30 Further, it is desirable to use shorter filters to reduce 
circuit complexity and power consximption. It is also 
desirable to be able to increase filter gain for 
frequencies of reduced hearing sensitivity in order to 
improve signal audibility. However, studies have shown 

35 that a balance must be maintained between gain at low 
frequencies and gain at high frequencies. It is 
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recommended that the gain difference across frequency 
should be no greater than 30 dB . Skinner, M»W., Hearing 
Aid Evaluation , Prentice Hall (1988). Further, 
psychometric functions often used to calculate a 
5 "prescriptive" filter characteristic are generally smooth, 
slowly changing functions of frequency that do not require 
a high degree of frequency resolution to fit. 

Within the above considerations, it is 
preferable to use FIR filters with transition bands of 
10 1000 Hz and out of band rejection of 40 dB, The required 
filter length is determined from the equation: 

L = ((-201ogio(a)-7.95) / ( 14 , 36TB/fs ) ) + 1 (10) 

In equation (10), L represents the number of filter taps, 
G represents the maximum error in achieving a target 

15 filter characteristic, -20 logi(|(a) represents the out of 
band rejection in decimals, TB represents the transition 
band, and fg is the sampling rateo See Kaiser, 
Nonrecursive Filter Design Using the I q-SINH Window 
Function , Proc . , IEEE Int, Symposium on Circuits and 

20 Systems (1974). For an out of band rejection figure of 35 
dB with a trauasition band of lOOOHz and a sampling 
frequency of 16kHz, the filter must be approximately 31 
taps long. If a lower out of band rejection of 30 dB is 
acceptable, the filter length is reduced to 25 taps. This 

25 range of filter lengths is consistent with the modest 

filter structure and low power limitations of a hearing 

aid- 
All of the circuits shown in Figs. 1 through 9 
use log encoded data. See the M19 patent. Log encoding 
30 is similar to u-law and A-law encoding used in Codecs and 
has the same advantages of extending the dynamic range, 
thereby making it possible to reduce the noise floor of 
the system as compared to linear encoding. Log encoding 
offers the additional advantage that arithmetic operations 
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are performed directly on the log encoded data. The log 
encoded data are represented in the hearing aid as a sign 
and magnitude as follows: 

X = sgn(y)log( |y| ) / log (B) (11) 

5 In equation (11)/ B represents the log base, which is 
positive and close to but less than unity, x represents 
the log value and y represents the equivalent linear 
value. A reciprocal relation for y as a function of x 
follows: 



10 y = sgn(x)Bl'^l (12) 

If x is represented as sign and an 8-bit magnitude and the 
log base is 0,941^ the range of y is ±1 to ±1.8 x 10'^. 
This corresponds to a dynamic range of 134 dB. The 
general expression for dynamic rainge as a function of the 
15 log base B and the number of bits used to represent the 
log magnitude value N follows: 

dynamic range (dB) = 201ogiQ(Bf2 -15) (13) 

An advantage of log encoding over u-law encoding 
20 is that arithmetic operations are performed directly on 
the encoded signal without conversion to another form. 
The basic FIR filter equation, y(n) = Ea|X(n-i), is 
implemented recursively as a succession of add and table 
lookup operations in the log domain. Multiplication is 
25 accomplished by adding the magnitude of the operands and 
determining the sign of the result. The sign of the 
result is a simple exclusive-or operation on the sign bits 
of the operands. Addition (and sixbtraction) are 
accomplished in the log domain by operations of 
30 subtraction, table lookup, and addition. Therefore, the 

sequence of operations required to form the partial sxam of 
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products of the FIR filter in the log domain are addition, 
subtraction, table lookup, and addition. 

Addition and subtraction in the log domain are 
implemented by using a table lookup approach with a 
5 sparsely populated set of tables and T. stored in a 
memory (not shown). Adding two values, x and y, is 
accomplished by taking the ratio of the smaller magnitude 
to the larger and adding the value from the log table to 
the smaller. Subtraction is similar and uses the log 
10 table T. . Since x and y are in log units, the ratio, ly/x| 
(or |x/y|), which is used to access the table value, is 
obtained by subtracting |x| from |y| (or vice-versa). The 
choice of which of the tables, or T., to use is 
determined by an exclusive-or operation on the sign bits 
15 of X and y- Whether the table value is added to x or to y 
is determined by subtracting |xl from ly| and testing the 
sign bit of the resulto 

Arithmetic roundoff errors in using log values 
for multiplication are nbt significant. With an 8-bit 
20 representation, the log magnitude values are restricted to 
the range 0 to 255- Zero corresponds to the largest 
possible signal value and 255 to the smallest possible 
signal value. Log values less than zero cannot occur. 
Therefore, overflow can only occur for the smallest signal 
25 values. Product log values greater than 255 are truncated 
to 255. This corresponds to a smallest signal value (255 
LU's) that is 134 dB smaller than the maximum signal 
value. Therefore, if the system is scaled by setting the 
amplifier gains so that 0 LU corresponds to 130 dB SPL, 
30 the truncation errors of multiplication (255 LU) 

correspond to -134 dB relative to the maximum possible 
signal value (0 LU). In absolute terms, this provides a 
-4 dB SPL or -43 dB SPL spectrum level, which is well 
below the normal hearing threshold. 
35 Roundoff errors of addition and subtraction are 

much more significant. For example, adding two numbers of 
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equal magnitude together results in a table lookup error 
of 2.4%. Conversely/ adding two values that differ by 
three orders of magnitude results in an error of 0.1%. 
The two tables / and T., are sparsely populated. For a 
5 log base of 0.941 and table values represented as an 8-bit 
magnitude, each table contains 57 nonzero values. If it 
is assumed that the errors are uniformly distributed (that 
each table value is used equally often on the average), 
then the overall average error associated with table 
10 roundoff is 1.01% for and 1.02% for T.. 

Table errors are reduced by using a log base 
closer to unity and a greater nxamber of bits to represent 
log magnitude. However, the size of the table grows and 
quickly becomes impractical to implement. A compromise 
15 solution for reducing error is to increase the precision 
of the table entries without increasing the table size. 
The number of nonzero entries increases somewhat. 
Therefore, in implementing the table lookup in the digital 
processor, two additional bits of precision are added to 
20 the table values- This is equivalent to using a temporary 
log base which is the fourth root of 0.941 (0.985) for 
calculating the FIR filter summation. The change in log 
base increases the nximber of nonzero entries in each of 
the tables by 22, but reduces the average error by a 
25 factor of four. This increases the output SNR of a given 
filter by 12 dB. The T^ and T. tables are still sparsely 
populated and implemented efficiently in VLSI form. 

In calculating the FIR equation, the table 
lookup operation is applied recursively N-1 times, where N 
30 is the order of the filter. Therefore, the total error 
that results is greater than the average table roundoff 
error and a function of filter order. If it is assumed 
that the errors are uniformly distributed and that the 
input signal is white, the expression for signal to 
35 roundoff noise ratio follows: 
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£yVay2 = £^(^^2 ^ 2C2^ + ... + (N-l)Cjf2) / 
(Cj^ + + . - . + c/) (14) 

In equation (14), represents the noise variance at the 
output of the filter, o^^ represents the signal variance at 
5 the output of the filter, and £ represents the average 
percent table error. Accordingly, the filter noise is 
dependent on the table lookup error, the magnitude of the 
filter coefficients, and the order of summation. The 
coefficient used first introduces an error that is 

10 multiplied by N-lo The coefficient used second introduces 
an error that is multiplied by N-2 and so on. Since the 
error is proportional to coefficient magnitude and order 
of summation, it is possible to minimize the overall error 
by ordering the smallest coefficients earliest in the 

15 calculation. Since the end tap values for symmetric 

filters are generally smaller than the center tap value, 
the error was further reduced by calculating partial sums 
using coefficients from the outside toward the inside - 
In Figs. 4 and 5, FIR filters Fl through F4 

20 represent channel filters which are divided into two 

cascaded parts. Limiters 26 and 80 are implemented as 
part of the log multiply operation. Gj is a gain factor 
that, in the log domain, is subtracted from the samples at 
the output of the first FIR filter- If the sum of the 

25 magnitudes is less than zero (maximtim signal value), it is 
clipped to zero. G2 represents an attenuation factor that 
is added (in the log domain) to the clipped samples. G2 is 
used to set the maximiam output level of the channel. 

Log quantizing noise is a constant percentage of 

30 signal level except for low input levels that are near the 
smallest quantizing steps of the encoder. Assximing a 
Laplacian signal distribution, the signal to quantizing 
noise ratio is given by the following equation: 



SNR(dB) = 101ogiQ(12) - 20 log^Q (|ln(B)|) (15) 
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For a log base of 0.941, the SNR is 35 dB. The quantizing 

noise is white and, since equation (15) represents the 

total noise energy over a bandwidth of 8kHz, the spectrum 

level is 39 dB less or 74 dB smaller than the signal 

5 level. The ear inherently masks the quantizing noise at 

« 

this spectrum level. Schroeder, et al . , Optimizing 
Diqrital Speech Coders by Exploiting Masking Properties of 
the Human Ear , Vol. 66(6) J.Acous.Soc.Am. pp. 1647-52 (Dec. 
1979). Thus, log encoding is ideally suited for auditory' 

10 signal processing. It provides a wide dynamic range that 
encompasses the range of levels of naturally occurring 
signals, provides sufficient SNR that is consistent with 
the limitation of the ear to resolve small signals in the 
presence of large signals, and provides a significant 

15 savings with regard to hardware. 

The goal of the fitting system is to program the 
digital hearing aid to achieve a target real-ear gain. 
The real -ear gain is -the difference between the 
real-ear-aided- response (REAR) and the 

20 real-ear-unaided-response (REUR) as measured with and 
without the hearing aid on the patient. It is assumed 
that the target gain is specified by the audiologist or 
calculated from one of a variety of prescriptive formulae 
chosen by the audiologist that is based on audiometric 

25 measures. There is not a general consensus about which 
prescription is best. However, prescriptive formulae are 
generally quite simple and easy to implement on a small 
host computer. Various prescriptive fitting methods are 
discussed in Chapter 6 of Skinner, M.W. , Hearing Aid 

30 Evaluation , Prentice Hall (1988). 

Assuming that a target real-ear gain has been 
specified, the following strategy is used to automatically 
fit the four channel digital hearing aid where each 
channel is programmed as a baind pass filter which is 

35 contiguous with adjacent channels. The real-ear 

measurement system disclosed in U.S. Patent No. 4,548,082 
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(hereinafter "the '082 patent") and incorporated herein by 
reference is used. First, the patient's REUR is measured 
to determine the patient's normal, unoccluded ear canal 
resonance. Then the hearing aid is placed on the patient. 
5 Second, the receiver and earmold are calibrated. This is 
done by setting G2 of each channel to maximum attenuation 
(-134dB) and turning on the noise generator of the 
adaptive feedback equalization circuit shown in the '082 
patent. This drives the output of the hearing aid with a 
10 flat-spectrum- level, pseudorandom noise sequence. The 
noise in the ear canal is then deconvolved with the 
pseudorandom sequence to obtain a measure of the output 
transfer characteristic (H,.) of the hearing aid. Third, 
the microphone is calibrated. This is done by setting the 
15 channels to a flat nominal gain of 20 dB. The 

cross-correlation of the sound in the ear canal with the 
reference sotznd then represents the overall transfer 
characteristic of the hearing aid and includes the 
occlusion of sound by the earmold. The microphone 
20 calibration (Hm) is computed by subtracting Hj. from this 
measurement- Last, the channel gain functions are 
specified and filter coefficients are computed using a 
window design method. See Rabiner and Schafer^ Digital 
Processing of Speech Signals , Prentice Hall (1978). The 
25 coefficients are then downloaded in bit-serial order to 
the coefficient registers of the processor. The 
coefficient registers are connected together as a single 
serial shift register for the purpose of downloading and 
uploading values. 

30 The channel gains are derived as follows. The 

acoustic gain for each channel of the hearing aid is given 
by: 



Gain = + Hr + + 



(16) 
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The filter shape for each channel is determined by setting 
the Gain in equation (16) to the desired real-ear gain 
plus the open-ear resonance. Since G^^^ and are gain 
constants for the channel and independent of frequency, 
5 they do not enter into the calculation at this point. The 
normalized filter characteristics is determined from the 
following equation. 

Hn = 0.5 (Desired Real-ear gain + open ear 
cal - - H, + G,) (17) 

10 and represent the microphone and receiver calibration 

measures, respectively, that were determined for the 
patient with the real ear measurement system and Gj, 
represents a normalization gain factor for the filter that 
is included in the computation of G^^ and G^^^ Hjj and 

15 include the transducer trainsfer characteristics in 

addition to the frequency response of the amplifier and 
any signal conditioning filters. Once Hp is determined, 
the maiximum output of each channel, which is limited by L, 
are represented by Gi^^ as follows: 

20 G2p. = MPOn - L - avg(Hj, + H^) - G^, (18) 

In equation (18), the "avg" operator gives the average of 
filter gain and receiver sensitivity at filter design 
frequencies within the channel. L represents a fixed 
level for all channels such that signals falling outside 
25 the range ±L are peak-clipped at ±L. represents the 

filter normalization gain, and MPO^^ represents the target 
maximum power output. Overall gain is then established by 
setting Gjp as follows: 



Gin = 2Gn - G2, 



(19) 
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Gp^ represents the gain normalization factor of the filters 
that were designed to provide the desired linear gain for 
the channel . 

By using the above approach, target gains 

5 typically are realized to within 3 dB over. a frequency 
range of from 100 Hz to 6000 Hz. The error between the 
step-wise approximation to the MPO function and the target 
MPO function is also small and is minimized by choosing 
appropriate crossover frequencies for the four channels. 
10 Because the channel filters are arbitrarily 

specified, an alternative fitting strategy is to prescribe 
different frequency-gain shapes for signals of different 
levels. By choosing appropriate limit levels in each 
channel, a transition from the characteristics of one 

15 channel to the characteristics of the neact channel will 
occur automatically as a function of signal level. For 
example, a transparent or low-gain function is used for 
high-level signals and a higher-gain function is used for 
low-level signals o The adaptive gain feature in each 

20 channel provides a means for controlling the transition 
from one channel characteristic to the next. Because of 
recruitment and the way the impaired ear works, the gain 
functions are generally ordered from highest gain for soft 
sounds to the lowest gain for loud sounds. With respect 

25 to circuit 100 of Fig. 4, this is accomplished by setting 
Gl in gain register 22 very high for the channel with the 
highest gain for the soft sounds. The settings for Gl in 
gain registers 22 of the next succeeding channels are 
sequentially decreased, with the Gl setting being unity in 

30 the last channel which channel has the lowest gain for 
loud sounds. A similar strategy is used for circuit 110 
of Fig. 5, except that Gl must be set in both gain 
registers 22 and 74. In this way, the channel gain 
settings in circuits 100 and 110 of Figs. 4 and 5 are 

35 sequentially modified from first to last as a fxinction of 
the level of input 12. 
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The fitting method is similar to that described 
above for the four-channel fitting strategy- Real-ear 
measurements are used to calibrate the ear, receiver, and 
microphone. However, the filters are designed 
5 differently. One of the channels is set to the lowest gain 
function and highest ACG threshold. Another channel is 
set to a higher-gain function, which adds to the 
lower-gain function and dominates the spectral shaping at 
signal levels below a lower ACG threshold setting for that 

10 channel. The remaining two channels are set to provide 
further gain contributions at successively lower signal 
levels. Since the channel filters are symmetric and ecjual 
length/ the gains will add in the linear sense. Two 
channels set to the same gain function will provide 6 dB 

15 more gain than either channel alone. Therefore, the 
channels filters are designed as follows: 

Hi = 1/2 (20) 

H2 = 1/2 log^o (10^2. ^qDIj ^21) 

H3 = 1/2 logjo (lo" - 10^2 . iqDIj (22) 

20 = 1/2 logjQ (10^- - 10^3 _ 3^qD2 _ ^qDIj ^23) 



where: Dj < D2 < D3 < D^. Dj^ represents the filter design 
target in decibels that gives the desired insertion gain 
for the hearing aid and is derived from the desired gains 
specified by the audiologist and corrected for ear canal 

25 resonance and receiver and microphone calibrations as 
described previously for the four-chaimel fit. The 
factor, 1/2, in the above expressions takes into account 
that each channel has two filters in cascade. 

The processor described above has been 

30 implemented in custom VLSI form. When operated at 5 volts 
and at a 16-kHz sampling rate, it consumes 4.6mA. When 
operated at 3 volts and at the same sampling rate, it 
consumes 2.8 mA. When the circuit is implemented in a 
low-voltage form, it is expected to consume less than 1 mA 



wo 94/23548 



PCT/US94/04004 



28 

when operated from a hearing aid battery. The processor 
has been incorporated into a bench- top prototype version 
of the digital hearing aid. Results of fitting 
hearing- impaired subjects with this system suggest that 
5 prescriptive frequency gain functions are achieved within 
3 dB accuracy at the same time that the desired MPO 
frequency function is achieved within 5 dB or so of 
accuracy - 

For those applications that do not afford the 
10 computational resources required to implement the 

circuitry of Figs. 1 through 5, the simplified circuitry 
of FigSo 6 through 9 is used- In Fig. 6, a circuit 120 
includes an input 12 which represents any conventional 
source of an input signal such as a microphone, signal 
15 processor, or the like- Input 12 also includes an analog 
to digital converter (not shown) for analog input signals 
if circuit 120 is implemented with digital components. 
Likewise, input 12 includes a digital to analog converter 
(not shown) for digital input signals if circuit 120 is 
20 implemented with analog components - 

Input 12 is connected to a group of filters Fl 
through F4 and a filter SI over a line 122. Filters Fl 
through F4 provide separate channels with filter 
parameters preset as described above for the multichannel 
25 circuits of Figs. 4 and 5, Each of filters Fl, F2, F3 and 
F4 outputs an adaptively filtered signal via a line 124, 
126, 128 and 130 which is amplified by a respective 
amplifier 132, 134, 136 and 138, Amplifiers 132 through 
138 each provide a channel output signal which is combined 
30 by a line 140 to provide an adaptively filtered signal at 
an output 142 of circuit 120. 

Filter SI has parameters which are set to 
extract relevant signal characteristics present in the 
input signal. The output of filter SI is received by an 
35 envelope detector 144 which detects said characteristics. 
Detector 144 preferably has a programmable time constant 
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for varying the relevant period of detection. When 
detector 144 is implemented in analog form, it includes a 
full wave rectifier and a resistor/capacitor circuit (hot 
shown). The resistor / the capacitor, or both, are 
5 variable for programming the time constant of detector 

144. When detector 144 is implemented in digital form, it 
includes an exponentially shaped filter with a 
programmable time constant. In either event, the "on" 
time constant is shorter than the relatively long "off" 

10 time constant to prevent excessively loud sounds from 
existing in the output signal for extended periods. 

The output of detector 144 is a control signal 
which is transformed to log encoded data by a log 
transformer 146 using standard techniques and as more. 

15 fully described above. The log encoded data represents 

the extracted signal characteristics present in the signal 
at input 12. A memory 148 stores a table of signal 
characteristic values and related amplifier gain values in 
log form. Memory 148 receives the log encoded data from 

20 log transformer 146 and, in response thereto, recalls a 

gain value for each of amplifiers 132, 134, 136 and 138 as 
a function of the log value produced by log transformer 
146. Memory 148 outputs the gain values via a set of 
lines 150, 152, 154 and 156 to amplifiers 132, 134, 136 

25 and 138 for setting the gains of the amplifiers as a 
function of the gain values. Arbitrary overall gain 
control functions and blending of signals from each signal 
processing channel are implemented by changing the entries 
in memory 148. 

30 In use, circuit 120 of Fig. 6 may include a 

greater or lesser number of filtered chainnels than the 
four shown in Fig. 6. Further, circuit 120 may include 
additional filters, detectors and log transformers 
corresponding to filter SI, detector 144 and log 

35 transformer 146 for providing additional input signal 

characteristics to memory 148. Still further, any or all 
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if the filtered signals in lines 124, 126, 128 or 130 
could be used by a detector(s), such as detector 144, for 
detecting an input signal characteristic for use by memory 
148- 

5 Fig. 7 includes input 12 for supplying an input 

signal to a circuit 160. Input 12 is connected to a 
variable filter 162 and to a filter SI via a line 164. 
Variable filter 162 provides an adaptively filtered signal 
which is amplified by an amplifier 166. A limiter 168 
10 peak clips the adaptively filtered output signal of 

amplifier 166 to produce a limited output signal which is 
filtered by a variable filter 170. The adaptively 
filtered and clipped output signal of variable filter 170 
is provided at output 171 of circuit 160. 
-,^5 Filter SI, a detector 144 and a log transformer 

146 in Fig. 7 perform similar functions to the like 
numbered components found in Fig. 6. A memory 162 stores 
a table of signal characteristic values, related filter 
parameters, and related amplifier gain values in log form. 
20 Memory 162 responds to the output from log transformer 146 
by recalling filter parameters and an amplifier gain value 
as functions of the log value produced by log transformer 
146. Memory 162 outputs the recalled filter parameters 
via a line 172 and the recalled gain value via a line 174. 
25 Filters 162 and 170 receive said filter parameters via 
line 172 for setting the parameters of filters 162 and 
170. Amplifier 166 receives said gain value via line 174 
for setting the gain of amplifier 166. The filter 
coefficients are stored in memory 162 in sequential order 
30 of input signal level to control the selection of filter 
coefficients as a function of input level. Filters 162 
and 170 are preferably FIR filters of the same 
construction and length and are set to the same parameters 
by memory 162. In operation, the circuit 160 is also used 
35 by taking the output signal from the output of amplifier 
166 to achieve desirable results. Limiter 168 and 
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variable filter 170 are shown, however, to illustrate the 
filter/limit/filter structure disclosed in the '419 patent 
in combination with the pair of variable filters 162 and 
170, 

5 With a suitable choice of filter coefficients, a 

variety of level dependent filtering is achieved. When 
memory 162 is a random- access memory, the filter 
coefficients are tailored to the patient's hearing 
impairment and stored in the memory from a host computer 

10 during the fitting session. The use of the host computer 
is more fully explained in the *082 patent. 

A two channel version of circuit 120 in Fig. 6 
is shown in Fig. 8 as circuit 180. Like components of the 
circuits in Figs. 6 and 8 are identified with the same 

15 reference numerals. A host computer (such as the host 
computer disclosed in the '082 patent) is used for 
calculating the Fl and F2 filter coefficients for various 
spectral shaping, for calculating entries in memory 148 
for various gain functions and blending functions/ and for 

20 down- loading the values to the hearing aid. 

The gain function for each channel is shown in 
Fig. 9. A segment "a" of a curve Gl provides a "voice 
switch" characteristic at low signal levels, A segment 
"b" provides a linear gain characteristic with a spectral 

25 characteristic determined by filter Fl in Fig. 8. A 
segment "c" and "d" provide a transition between the 
characteristics of filters Fl and F2, A segment "e" 
represents a linear gain characteristic with a spectral 
characteristic determined by filter F2 . Lastly, segment 

30 "f" corresponds to a region over which the level of output 
142 is constant and independent of the level of input 12. 

The Gl and G2 functions are stored in a raindom 
access memory such as memory 148 in Fig. 8. The data 
stored in memory 148 is based on the specific hearing 

35 impairment of the patient. The data is derived from an 

appropriate algorithm in the host computer and down- loaded 
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to the hearing aid model during the fitting session. The 
coefficients for filters Fl and F2 are derived from the 
patients residual hearing characteristic as follows: 
Filter F2, which determines the spectral shaping for loud 
5 sounds, is designed to match the patients UCL function. 
Filter Fl, which determines the spectral shaping for 
softer sounds, is designed to match the patients MCL or 
threshold functions. One of a number of suitable filter 
design methods are used to compute the filter coefficient 
10 values that correspond to the desired spectral 
characteristic. 

A Kaiser window filter design method is 
preferable for this application. Once the desired 
spectral shape is established, the filter coefficients are 
15 determined from the following equation: 

Cn = 2Aij(cos(2Ttnffc/fs))Wn (24) 

in equation (24), C„ represents the n'th filter 
coefficient, represents samples of the desired spectral 
shape at frequencies f^, fj represents the sampling 
20 frequency and represents samples of the Kaiser Window. 
The spectral sample points, A^, are spaced at frequencies, 
t^, which are separated by the 6dB bandwidth of the window, 
W„, so that a relatively smooth filter characteristic 
results that passes through each of the sample values. 

25 The frequency resolution and maximum elope of the 

frequency response of the resulting filter is determined 
by the number of coefficients or length of the filter. In 
the implementation shown in Fig. 8, filters Fl and F2 have 
a length of 30 taps which, at a sampling rate of 12.5kHz, 

30 gives a frequency resolution of about 700 Hz and a maximum 
spectral slope of 0.04 dB/Hz. 

Circuit 180 of Fig. 8 simplifies the fitting 
process. Through a suitable interactive display on a host 
computer (not shown), each spectral sample value is 
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independently selected. While wearing a hearing aid which 
includes circuit 180 in a sound field, such as speech 
weighted noise at a given level, the patient adjusts each 
sample value to a preferred setting foir listening. The 
5 patient also adjusts filter F2 to a preferred shape that 
is comfortcible only for loud sounds. 

Appendix A contains a program written for a 
Macintosh host computer for setting channel gain and limit 
values in a four channel contiguous band hearing aid. The 
10 filter coefficients for the bands are read from a file 
stored on the disk in the Macintosh computer. An 
interactive graphics display is used to adjust the filter 
and gain values . 

In view of the above, it will be seen that the 
15 several objects of the invention are achieved and other 
advantageous results attained. 

As various changes could be made in the above 
constructions without departing from the scope of the 
invention, it is intended that all matter contained in the 
20 above description or shown in the accompanying drawings 

shall be interpreted as illustrative and not in a limiting 
sense . 
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Program WDHA 



Wearable Digital Hearing flld Control Program II. 10 

Central Institute For The Deaf 

PI PiTj 818 South Euclid flue. 

L C LI I ' I St. Louis Mo. 63t 1 0 

W« U immr Phone: 31 4-652-3200 

Supported in part bg: 

The Rehabilitation Research find Deuelopment Seruice 
Dept. of Medicine and Surgery: Ueterans administration 



General Overview 

A program entitled "WDHA" has been written for the Macintosh 
personal computer. When a wearable digital hearing aid is attached 
to the Macintosh's SCSI bus peripheral interface, the user of the 
WDHA program can alter the operation of the hearing aid via an easy 
to use Macintosh style user interface. 

Using the WDHA Program 

Starting The Program 

Upon starting the program, the Macintosh interrogates the 
hearing aid to determine which program it is running. If the heanng 
aid responds appropriately, a menu containing the options which 
apply to that particular program appears in the menu bar "JJ^ 
response is received from the hearing aid, the menu entitled WDHA 
Disconnected" appears in the menu bar, as follows: 




Should this menu appear, this indicates that there is some 
problem with the hearing aid.. The source of this problem could be 
that the hearing aid is truly disconnected, that it is simply turned ott. 
or that the hearing aid battery is dead. Upon correcting the problem. 
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choose the "New WDHA Program" menu entry to activate the proper 
menu for the hearing aid. . . 

The Aid Parameters Window 

« 

The four channel hearing aid programs have the titles Aid 12 
through Aidl4. Choosing the "Aid Parameters" menu entry will 
cause the aid parameters window to be displayed, as follows: 



Q-,-r.-- -rr-n -rr-- Hid ParametersTT^' ■ . : :.L==r7=7= 
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The bar graph and chart depict the current settings of the gains 
and limits for each channel of the hearing aid. A gain or limit setting 
can be changed by dragging the appropriate bar up or down with the 
mouse. The selected bar will blink when it is activated, and can be 
moved until the mouse is released, at which point the hearing aid is 
updated with the new values. 

' The control buttons indicate whether the hearing aid is on or 
off (i.e. whether the hearing aid program is running), and whether 
the input or output attenuators are switched on or off. Any ot these 
settings can be changed simply by clicking on the appropriate 
buttons. 

Ear Module Calibration 

The File menu has an option called "Calibrate Ear Module" 
which should be used whenever the program is started or an ear 
module is insened (or re-insened) in a patient's ear. Proper use of 
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this option insures that the gains actually generated by the hearing 
aid are as close to the aains indicated by the program as possible. 

The lower right hand corner of the Aid Parameters window 
displays the results' of the most recent ear module calibration, 
including the name of the calibration file and the four He values, 
where He is the difference between the real ear pressure measured 
in the ear canal and the standard pressure measured on a Zwislocki 
at the center frequency of each channel. After choosing this option 
the user must open the file containing the ear module coefficients, by 
double clicking on the file's name, via a standard Macintosh dialog 
box: 



(g) Ear Module calibrations! 



D ite.3l 

□ lte.3r 

□ ite.41 
D ite.4r 

□ lte.51 



D aiiie=5ir- 



□ ite.6l 
D ite.6r 
D ite.7l 



O 



o 



O Ear Module ... 

f Eject 1 
[ Driue ] 

f Open ^\ 
[ Cancel j 



The program will then play a series of four tones in the 
patient's ear, using the power measurement to determine the real 
pressure in the ear canal. 

The file containing the ear module coefficients should be 
created with a text editor and saved as a text-only file. The file 
contains all the H values for a given ear module, seperated by tabs, 
spaces, or carriage returns. It should begin with the four He values, 
followed by the Hr values, then He, and then Hp. The values entered 
for the He values can be arbitrary, since the program calculates them 
and stores them into the file. An ear module file as you would enter 
it might look as follows: 

-100 -85 -90 -84 121 116 127 120 

0 

0 
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0 
0 

-124 -121 -134 -143 

Here the first row contains both the four He values and the 
four Hr values. Following this are four zeros (since the 'He values are 
unknown). The sixth row contains the Hp values. Note that values 
are arbitrarily seperated by tabs, spaces, or carriage returns. 

After doing an ear module calibration with the program, the 
new He values are displayed in the Aid Settings window, and also 
written to the same file, with the data re -formatted into a seperate 
row for each H value, as follows: 

-100 -85 -90 -84 
121 116 127 120 
-5 -4 -10 0 
-124 -121 -134 -143 

The Tone Parameters Window 

The four channel programs also have the ability to play pure 
tones for audiometric purposes. The Tone Parameters window is 
available to activate these functions. Choosing the "Tone Parameters' 
menu entry will cause the Tone Parameters window to be displayed, 
as follows: 



Tone Parameter 



Tone burst count? 
Rise time sample count? 
Signal on sample count? 
Fell time sample count? 
Signal off sample count? 
Frequency? 

Atten re max out (dB)? 
Power = -12.816046 



309 



2455 



309 



3069 



2000 



20 



E Hearing Aid On 

□ Input attenuation 

□ Output Attenuation 
O Field Mike 

(S) Probe Mike 



Start 
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The text boxes specify the number of tone bursts to generate 
and the envelope of the tone bursts generated, as follows: 




off time 



omplitud© 




frequency 



probs sample time 

All times are specified in number of sample periods, and 
cannot exceed 32767 'sample periods. The test is initxated by cUckmg 
on the start button. The control buttons act just as m the aid 
parameters window. 



Loading Filter Taps 

The programs titled Aidl3 and AidU have the capability to 
download filter tap coefficients to the hearing aid. The coefficients 
ie r ad into memory from a text file which the user creates wi^ 
anv standard text editor. The coefficients m these files are signed 
fntegers s"ch as "797" or "-174" (optionally be followed by a^--- 
such as in "-12028/2") and must be seperated by spaces, tabs, or 

carriage remnis^ program has 32 taps per filter, and the AidU 
Dro<^am has 31 taps per filter, but since the filters are symmetric 
Tbo^tThe center tap you only provide half this number of taps. orl6 
tans oer filter. Thus the files contain 64 coefficients fov tii^ 4 
channels. For example, the file titled TapsFour has the following 
format: 

«;-^^/4 -431/4 -^54/4 0 333/4 743/4 1220/4 1750/4 
2315^ 2892M 3545/4 3977/4 4432/4 ^797/4 5052/4 5183/4 
^In -^-^Mi -il-ill 0 292/2 398/2 77/2 -745/2 
:f87^/^ 2869/f -Ln/f -831/2 1483/2 3683/2 5021/2 

s-^n ^c\on 859/2 0 -1128/2 -866/2 189/2 128/2 
:f42% 890/2 3076/2 1605/2 -3814/2 -6280/2 -922/2 6543/2 
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528/2 -167/2 -446/2 0 585/2 288/2 -1203/2 242/2 

442/2 1525/2 -2946/2 797/2 -174/2 6280/2 -12028/2 6482/2 

The option to download coefficients is enabled by choosing the 
"Tap Filter Load" menu entries. The Macintosh will then present the 
standard open file dialog box. which you use to specify the name of 
the appropriate text file. 



Program Design 

The program is written in 68000 Assembly Language using the 
Macintosh Development System assembler, from Apple. 

The program has been structured into seperate managers for 
each of the program's functions. A seperate file contains the 
functions associated with each manager. For example, the Parameter 
Settings (or "PS") manager is contained in the file WDHAPS.Asm, and 
includes all routines associated with the Aid Parameters window. 

Below is a description of each manager, it's function, and the 
routines contained in each. 

WDHA.Asm 

The overall program structure is typical of a Macintosh 
application in that it has an event loop which dequeues events from 
the event queue, and then branches to code which processes each 
particular type of event. WDHA.Asm contains the WD HA program's 
event loop. 

WDHAPS.Asm 

The Parameter Settings ("PS") manager contains all routines 
associated with the Aid Parameters window, which allows the user to 
control the gains and limits of each of the channels in the four 
channel programs. Specifically, these routines are as follows: 

WDHAPSOpen - Create and display the Aid Parameters window. 

WDH APS Close - Close the Aid Parameters window and dispose 
the memory associated with it. 

WDHAPSShow - Make the Aid Parameters window visible. 

WDHAPSHide - Make the Aid Parameters window invisible. 

WDHAPSDraw - Update the contents of the Aid Parameters 
window. 
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WDHAPSControl - Cause the appropriate modification of the Aid 
Parameters window when a mousedown event occurs 
within it's content region. • -f 

WDHAPSIS - Given a window pointer, this routine determmes it 
it is the Aid Parameters window or not. 

WDHAPSSetParam - Update the hearing aid to contatm the 
settings specified in the Aid Parameters window. 

"^^^he* t'c manager contains all routines associated with the Tone 
Parameters window; which allows the user to specify the parameters 
for the test/calibrate function of the four channel program, and 
initiate the test. Specifically, these routines are as follows: 

WDHATCOpen - Create and display the Tone Parameters 

WDHATCaose - Close the Tone Parameters window and dispose 

the memory associated with it. 
WDHATCShow - Make the Tone Parameters window visible. 
WDHATCHide - Make the Tone Parameters window invisible. 
WDHATCDraw - Update th^ contents of the Tone Parameters 

window. . . - , 

WDHATCControl - Cause the appropriate modification ot tne 

Tone Parameters window when a mousedown event 

occurs within it's content region. , 
WDHATCIS - Given a window pointer, this routine determines it 

it is the Tone Parameters window or not. 
WDHATCIdle - Blink the text caret of the Tone Parameters 

window. . p , 

WDHATCKey - Insen a key press into the active text box of the 

Tone Parameters window, 
WDHATCDoTest - Initiate a test by the hearing aid program, 

using the parameters specified by the Tone Parameters 

EarModuleCriibrate - Compute the He values for each of the 
four channels (this routine uses the test/calibrate 
function of the hearing aid to figure the real ear pressure 
at the center frequency of each channel). 

WDHASCSLAsm ^. . . 

The SCSI manager contains all routines which send record 

structures to the hearing aid via the SCSI bus. 
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SetParam - Send the four channel parameter record (containing 
the gains and limits) to the four channel hearing aid 
program. 

SetCoefficients - Send out the filter tap coefficients to the four 

channel hearing aid program. 
SetFileParams - Send the parameters required by the spectral 

shaping program, 
wdhatest - Initiate a pure tone test by sending the 

test/calibrate record to the hearing aid. 

WDHAFCAsm 

The WDHA program accesses some numerical values it needs 
by reading them in from text files. The File Coefficients (FC) manager 
contains routines which access these text files. 

WDHAFCSet - This routine is called when the user selects the 
"Load Filter Taps" menu option. It uses the SFGetFile 
dialog to get the name of a text file containing filter 
coefficients; convert the contents to integer form, and 
then downloads them to the hearing aid. 

WDHASetFileParams - This routine is used to download 

parameters to the Spectral Shaping hearing aid program. 
It uses the SFGetFile dialog to get the name of a text file 
containing the spectral shaping parameters, converts the 
contents to integer form, then downloads them to the 
hearing aid. 

WDHACalEarModFile - This routine is called when the user 

calibrates the ear module. It uses the SFGetFile dialog to 
get the name of a text file containing ear module H 
Tables, and converts it's contents to integer form in 
memory. Then it calibrates the ear module using the TC 
manager function EarModuleCalibrate. Finally, it writes 
the new H Tables over the same file. 

WDHAMenu.Asm 

The Menu manager contains all routines associated with the 
WDHA program's menu bar. 

MakeMenus - Create the Menu bar containing the accessory, 

file, and hearing aid menus, and display it on the screen. 
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MenuBar - When the main event loop gets a mouseDown event 
located in the menu Bar. this routine calls the appropriate 
code to handle the selection. 

SetProgMenu - This routine interrogates the hearing aid to 
determine which program it is currently running, then 
places the appropriate menu in the menu bar. 



Programmer's Note - 

As explained earlier, the WDHA program has seperate 
pulldown menus defined for each program which runs on the hearing 
aid, giving the options available for that particular program. It is not 
difficult to add a new menu to the hearing aid program. The 
following example shows the steps one would follow to add a new aid 
menu (in this case 'Aidn*)- to the menu bar. 

First of all, the constants needed for the menu must be defined 
with equate statements. You must define the code returned by the 
aid program when it is interrogated by the Macintosh, the identifier 
for the menu itself (as required by the NewMenu toolbox funcnon), 
and the offset within the menu handles declarations where this 
handle will reside (the handles are defined in a sequential block of 
memory near the end of the Menu.Asm file). 

Aidl7ID equ -17 ; aid program id returned by interrogating the 
aid. 

AidlTMenu equ 17 ; Unique menu identifier 
menuaidl7equ 40 ; 10*'4=menuhandle offset (this is the tenth 
handle) 

Next you would declare the location to store the menu's handle 
at the end of the menu handles declarations: 



dc.l 0 ; Aidl7 menu handle 

Next one would add code to the MakeMenus routine to create 
the new menu (simply cut and paste the code which creates one of 
the current menus and modify it accordingly). 

You would also modify the SetProgMenu routine to handle the 
new menu (once again simply replicate the code sections which 
handle one of the old menus, and change the menu names 
appropriately). 

Finally, you would modify the MenuBar routine to handle your 
new menu. If all the options contained in your menu are also in the 
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Other hearing aid menus, you can call the InAidMenu procedure (as 
the other menus do), otherwise you must define your own procedure 
to call. 

WDHADisk.Asm 

The disk manager contains routines used to access disk files on 
the Macintosh. 

DiskCreate - Create a new file. 
DiskRead - Read sectors from a file. 
DiskWrite - Write sectors to a file. 
DiskEject - Eject a disk. 
DiskOpen - Open a file. 
DiskClose - Close a file 

DiskSetFPos - Set the position of a file's read/write mark. 
DiskSetEOF - Set the location of the end of file marker for a 
file. 

DiskSetFInfo - Set the finder information for a file. 
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Include MacTraps.D 
Include TociEquX.D 
Include SysEquX.D 
Include QuickEquX.D 
Include MDS2:WDHAPS.hdr 
Include MDS2:WDHATC.hdr 
Include MDS2:WDHAMenu.hdr 



WDHA program . ^ „ » 

This program controls several Macintosh windows which aJIow the user to 
manipulate the digital hearing aid. The Macintosh communicates with the aid 
by sending records via the SCSI port. 

This particular file is a "standard" Macintosh style event loop 
which dequeues each event and calls the appropriate routine to handle the event. 

Additional files contain routines associated with each control window. 
Executing the program should provide an overall understanding of the function 
of these windows. Specifically, the packages used are: 

The WDHA Paramatar Settings Window Manager - in WOHAPS.Asm 
The WDHA Test/Calibrate Window Manager - in WDHATC.Asm 

In addition, the following files contain various uUlity routines: 

WDHAMenu.Asm - sets up the menus ei-ei u 

WDHASpSLAsm - low level routines for communicating through the SCSI bus. 
WDH^PoAsrn . contains high-level routinSi fd^ ddiiimi^^irtg cideffident 

files to the hearing aid. 
WDHADisk.Asm - routines for doing disk access. 



XDEF 


Start 


XDEF 


EventLoop 


XDEF 


Update 


XDEF 


What 


XDEF 


When 


XDEF 


EventRecord 


XDEF 


WWindow 


XDEF 


Message 


XDEF 


Where 


XDEF 


Modify 



Definitions- 



Constant Definitions 

ActiveBIt equ 0 :Bit position of de/activate in modify 

Code Starts Here 

Start: ^ _ 

bsr InitManagers ; Initialize TooIBox 

bsr WDHAPSOpen ; Create the parameter settngs window, 

bsr WDHAPSHide : Don't leave it open though, 

bsr WDHATCOpen : Create the tesVcalibrate window, 

bsr WOHATCHide : Don't leave it open though. 
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bsr MakeMenus : Set up the menus 

EventLoop: 

_SystennTask ; Give System sonne time 

bsr WOHATCIdle ; Blink the test window's caret 

; FUNCTION GetNextEvent(eventMask: INTEGER: 

: VAR theEvent: EventRecord) : BOOLEAN 



CLR 

MOVE 

PEA 

_GetNextEvent 

MOVE 

BEO 

BSR 

bra 



-(SP) 

#SOFFF.-(SP) 
EventRecord 

(SP)+.DO 
EventLoop 
HandleEvent 
EventLoop 



Clear space for result 
Allow 12 low events 
Place to return results 
Look for an event 
Get result code 
No event.. Keep waiting 
Go handle event 
return to eventloop call 



HandleEvent: 

; Use the event number as an index into the Event table. These 12 events 
: are alt the things that could spontaneously happen while the program is 
; in the main loop. 



MOVE 
ADO 
MOVE 
JMP 



What, DO 
DO.OO 

EventTable(DO).DO 
EventTable(DO) 



; Get event number 
*2 for table index 
Point to routine offset 
and jump to it 



EventTable: 
DC.W 
DC.W 
DC.W 
DC.W 
DC.W 
DC.W 
DC.W 
DC.W 
DC.W 
DC.W 
DC.W 
DC.W 



OtherEvent-EventTable ; 
MouseDown-EventTabie ; 
OtherEvent-EventTable ; 
KeyEvent-EventTable ; 
OtherEvent-EventTable ; 
KeyEvent-EventTable ; 
UpDate-EventTable ; 
OtherEvent-EventTable ; 
Activate-EventTable 
OtherEvent-EventTable ; 
OtherEvent-EventTable ; 
OtherEvent-EventTable ; 



Null Event (Nat used) 

Mouse Down 

Mouse Up (Not used) 

Key Down 

Key Up (Not used) 

Auto Key 

Update 

Disk (Not used) 
Activate 

Abort (Not used) 
Network (Not used) 
I/O Driver (Not used) 



Event Actions 



OtherEvent: 
rts 



Activate: 

; An activate event is posted by the system when a window needs to be 
; activated or deactivated. The information that indicates which window 
; needs to be updated was retumed by the NextEvent call. 

btst #ActiveBit,Modify ; Activate? 

beq Deactivate ; No. go do Deactivate 

; Bring it to the front 

move.! Message»-(sp) 
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_BringToFront 
; Show it 

move.l Message, -(sp) 

_ShowWindow 
; Select it 

move.l Message, -(sp) 

_Se!ectWindow 

rts 



Deactivate: 
rts 



Update: 

; The window needs to be redrawn. 
; PROCEDURE BeginUpdate {theWindow: WindowPtr); 



MOVE.L message. -(SP) ; Get pointer to window 

_BeginUpDate : Begin the update 

move.l message, -(sp) 

bsr WDHATCIS : Was it our TC window? 

tst.w (sp)+ 

BEQ DontTCDraw 

bsr WDHATCOraw ; Draw the TC window, 

bra DoneDraw 
DontTCDraw: 

move.l message.-(sp) 

bsr WDHAPSIS Was it our PS window? 

tst.w (sp)+ 

BEQ DontPSDraw 

bsr WDHAPSDraw ; Draw the PS window. 

bra DoneDraw 
DontPSDraw: 
DoneDraw: 

: PROCEDURE EndUpdate (theWindow: WindowPtr); 

MOVE.L message.-{SP) ; Get pointer to window 

_EndUpdate ; and end the update 

rts 



MouseDown: 

: If the mouse button was pressed, we must determine where the click 
; occurred before we can do anything. Call FindWindow to determine 
: where the click was; dispatch the event according to the result 



; FUNCTION 

CLR 

MOVEL 

PEA 

_FindWindow 
MOVE 
ADD 
MOVE 



FindWindow (thePt: Point; 

VAR whichWindow: WindowPtr): INTEGER: 
-(SP) ; Space for result 

Where, -(SP) ; Get mouse coordinates 

WWindow ; Event Window 

Who's got the dick? 



(SP)+,DO 
DO.DO 

WindowTable{DO),DO 



Get region number 
•2 for indesr into table 
Point to routine offset 
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JMP WindowTabl6(D0) ; Jump to routine 
WindowTabie: 

DC.W other-WindowTable ; In Desk (Not used) 

DC.W MenuBar- WindowTabie ; In Menu Bar 

OC.W SystemEvent-WindowTabte : System Window (Not used) 

DC.W Content-WindowTabie ; In Content 

DC.W Drag-WindowTabie ; In Drag 

DC.W Grow-WindowTable ; In Grow 

DC.W GoAway-WindowTable ; In Go Away 



Other: 

rts 

SystemEvent: 

; Call SystemClick to handle the desk accessory windows, 
pea EventRecord 
move. I wwindow,-(sp) 
_SystemClick 
rts 

Content: 

; Was it in the content of an active window? 



cir.l -(sp) 
_FrontW'mdow 

move. I (sp)+,d1 ; Get the FrontWindow in d1 

cmp.l wwindow,d1 ; Are they the same? 

beq WasActive 

move.l wwindow,-{sp) ; It wasn't 

_SelectWindow : So select it. 

bra DoneContant 
WasActive: 

move.l wwindow.-{sp) 

bsr WDHAPStS ; Was it our PS window? 

tst.w {sp)-»- 

beq NotPSContent 

move.l where, -(sp) 

bsr WDHAPSContro! ; Handle the event, 

bra DoneContent 
NotPSContent: 

move.l wwindow.-{sp) 

bsr WDHATCIS : Was it our TC window? 

tst.w (sp)* 

beq NotTCContent 

move.l where, -(sp) 

bsr WDHATCControl : Handle the event 

bra DoneContent 
NotTCContent: 
DoneContent: 

rts 



Drag: 

; The click was in the drag bar of the window. Draggit 

; DragWindow (theWindow:WindowPtr; startPt: Point: boundsRect: Rect); 
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MOVE.L wwindow.-(SP);Pass window pointer 
MOVEL where. -(SP) ;mouse coordinates 
PEA bound ;and boundaries 

_DragWindow ;Drag Window 

rts 

Grow: 

; The click was in the grow box 
NoGrow: rts 



GoAway: 

cir.b -(sp) 

move.l wwindow.-(sp) 

move.! where, -(sp) 

^TrackGoAway 

tst.b {sp)+ 

beq NoGoAway 
JustHtde: 

;PROCS)URE HideWindow (theWindow: WindowPtr) 



Close the Window 
make room for a Boolean 



Track It 

Did they stay in the box? 
If no then don't close. 



MOVEL wwindow, 
^HideWindow 
NoGoAway: 
rts 



(SP) 



Pass window pointer 
Hide the Window 



KeyEvent: 

CLRX -(SP) 

_FrontWindow 

bsr WDHATCiS 

tst.w (sp)+ 

beq TCNotActive 

move.w message+2,-(sp) 

bsr WOHATCKey 
TCNotActive: 

rts 

; InitManagers initializes all the ToolBox managers. You should call 
; InitManagers once at the beginning of your program if you are using 
: any of the ToolBox routines. 
InitManagers: 

pea -4(a5) 

JnitGraf 

JnitFonts 

move.l #$O0OOFFFF.dO 

_FiushEvents 

_lnitWindows 

^InitMenus 

cir.l -(sp) 

_lnitDialogs 

_TElnit 

_lnitCursor 

rts 



; Space for result 
; Get window pointer on stack 
; Was it our TO window? 



; get the char 
; Insert it in the active text box 
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; WDHA header file 

; this file must be included to access the data structures contained m 



; the file WDHA.Asm 


XREF 


EventLoop 


XREF 


Update 


XREF 


EventRecord 


XREF 


What 


XREF 


Message 


XREF 


When 


XREF 


Where 


XREF 


Modify 


XREF 


W\Arindow 


TRUE B3U 


1 


FALSE ECaU 


0 
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;WDHAMac.txt 

;macros for WDHA program 

;1 2/27/86 AME 



;Dialog 
;Macro 

Macro Diaiog xpos.ypos.txtstnng, result 

move.w{xpos}.-(SP) 

move.w{ypos}.-(SP) 

_MoveTo 

pea •{txtstring}* 
^DrawString 
pea KeyBuf 
bsr GetStr 



lea keybuf.aO 
move.w#1.-(SP) 

Pack? ;StringToNum 
move.wdO.{result) 

I 



;DispString 

; Macro . 

Macro DispString xpos.ypps.txtstnng » 

move.w{xpos}.-(SP) 
_Moveto 

pea •{txtstring}' 
_DrawString 



;DispValue 
;Macro 

Macro DispVaiue xpos.ypos.label.vaiue = 
movem.l a0-a6/d0-d7.-(sp) 
move.w{xpos}.-{SP) 
move.w{yposl,-(SP) 

MoveTo 
>ea '{label}' 
_OrawString 

lea KeyBuf.aO 

move. I {value}, dO . 
move.w#0.-(SP) ;Seiect NumToStnng 

.Pack? 

pea KeyBuf 

Drawstring 
movem.l (sp)*.a0-a6/d0-d? 

1 



■.DispWVatue 
;Macro 
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Macro DispWValue xpos.yposjabel, value = 

movem.l aO-a6/dO-d7.-(sp) 

move.w{xpos).-(SP) 

move.w{ypos},-{SP) 

_MoveTo 

'{label)* 
_DrawString 

lea Key6uf«a0 
move. w {value}, dO 
ext.1 dO 

move.w#0,-(SP) ;Select NumToString 

_Pack7 

pea KayBuf 
_DrawString 

movem.l (sp)-i-,aO-a6/dO-d7 
I 
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^li°rmeT^^^^ routines which create and manipulate the menus used in 
the WDHA program. 

Include MacTraps.D 
Include ToolEquX.D 
Include SysEquX-D 
Include QuickEquX.D 
Include MDS2:WD HAMac.txt 
Include MDS2:W0HA.hdr 
Include MDS2:WDHAPS.hdr 
Include MDS2:WDHATC.hdr 
Include MDS2:WDHAFC.hdr 
Include MDS2:WDHASCSLhdr 



xdef MakeMenus 
xdef MenuHandles 
xdef MenuBar 



AppleMenu 


EQU 


1 


Aboutltem 


EQU 


1 


menuappie 


equ 0 


;menuhandle offset 


FileMenu 


EQU 


2 


Quitltem 




EQU 1 


menufile 


equ 4 


;menuhandle offset 


Now the aid 


menus. 


All have a 'new program' entry, and a blank 


NewProgltem 


EQU 


1 


AidBlank 


EQU 


2 


Aid121D 




EQU -12 ; program version id 


Aid12Menu 


EQU 


5 


Setltem 


ECU 


3 


Testitem 


EQU 


4 


menuaidl2 


equ 8 


;menuhandle offset 


Aid13ID 




BDU - 1 3 ; program version id 


Aid13Menu 


BQU 


6 


FCItem EQU 


5 




menuaidlS 


equ 12 ;m9nuhandle offset 


Aid14ID 




BXI -14 ; program version id 


Aid14Manu 


BQU 


7 


manuaid14 


equ 


16 ;menuhandle offset 


ssnsiD 




EQU -100 


SSlSMenu 


EQU 


8 


Loadltem 


BQU 


3 


menusslS 


equ 


20 



line. 



NoneMenu ECU 
menunone equ 
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Name: MakeMenus 

Function: MakeMenus creates and displays the menu bar. 

Input: None 

Output: None 
MakeMenus: 
;Clear menu bar 

ClearMenuBar 



lea MenuHandles.a4 
;First add Apple Menu 
;Make it. 

cir.l -(sp) 

move.w#AppleMenu,-{sp) 

pea AppieName 

_NewMenu 

move. I (sp)+.menuapple(a4) 
;Add entries 

move.! menuapple(a4),-(sp) 
pea 'About WDHA;(-' 
_AppendMenu 

move. I menuapple(a4),-(sp) 
move.! rDRVR\.(sp) 
_AddResMenu 
;ins6rt it in the menu bar. 

move.l menuapple(a4).-(sp) 
move.w#0»-(sp) 
InsertMenu 



; Now add RIe Menu 
;Make it. 

cir.l -(sp) 

move.wifFiieMenu.-{sp) 

pea 'File' 

_NewMenu 

move.l {sp)*,menufiie{a4) 
;Add entries 

move.l menufile(a4).-(sp) 

pea *Quit' 

^AppendMenu 

:!nsert it in the menu bar. 

move.l menufiie(a4).-{sp) 

move.w#0.-(sp) 
InsertMenu 



;space for function result 
;first menu 
;appie character 

;store handle 

;push handle again 

push menu item 

;push handle again 
:load all drivers 



;push handle again 
;insert at end 



;space for function result 

;second menu 
;menu title 

;store handle 

push handle again 



;push menu item 



;push handle again 
•.insert at end 



;Now create the WDHA program menus. 



none 



:Add 



cir.l -(sp) 
move.w#Non6Menu,-(sp) 
pea 'WDHA Disconnected' 
_NewMenu 

move.l {sp)+.menunone(a4) 
entries. 

move.l menunone(a4),-(sp) 



;space for function result 
;menu title 

;store handle 
push handle 



pea 'New WDHA Program:(-' ;menu items. 
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^AppendMenu 

: aid12 . . 

cir.I -(sp) ;spac8 for function result 

move.wi^Aidl 2Menu.-(sp) 

pea 'Aid 12' '.irienu title 

_NewMenu 

move.l (sp)+.mGnuaid12{a4) :store handle 

;Add entries. 

move.l menuaid12{a4)..(sp) ;push handle 

pea 'New WDHA Program;(-:4 Channel Parameters;Test Calibrate ,menu .terns. 
_AppendMenu 

: aid13 

I .(sp) ;space for function result 

move.w#Aid13Menu,-(sp) 
pea 'AidlS' :menu title 

^NewMenu 

move.! (sp)^-.menuaidl3(a4) ;store handle 
;Add entries. 

move.l menuaid13(a4),.{sp) ;push handle ^^^^,^,^,^0 T«n Filter Load' 

pea 'New WDHA Program;(.;4 Channel Parameters;Test Calibrate.32 Tap Filter Load 

;menu items, 

_AppendMenu 

^^^^^ cir.l -(sp) ;space for function result 

move.w#Aid14Menu,-{sp) 
pea 'AidM- ;menu title 

_NewMenu 

move.l (sp)+,menuaid14(a4) ".store handle 
;Add entries. 

move.! fnenuaid14(a4).-(sp) ;push handle .w^t^.'^i Tan Piltar Load' 

pea 'New WDHA Program;(-;4 Channel ParametersiTest Calibrate:31 Tap Filter Load 

;menu items. 

_AppendMenu 

* SS1 5 

- cir.l -(sp) :space for function result 

move.w«SS15Menu.-{sp) 
pea "SSI 5* t^®"" 
_NewMenu 

move.l (sp)-i-.menuss15(a4) -.store handle 

Add entries. 

move.l menuss15{a4),-{sp) :push handle 

pea 'New WDHA Program:(-:Parameter Load* ;menu items. 

_AppendMenu 

•insert one in the menu bar since SetProgMenu deletes one. 
move.l menunone(a4).-(sp) :push handle again 
move.w#0.-(sp) ;insert at end 

_lnsertMenu 

; Set the proper WDHA program menu 
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bsr SetProgMenu 
rts 

: Name: SatProgMenu 
; Function: This routine interrogates the 
; program it is currently running, 

; in the menu bar. 

; Input: None 
; Output: None 
SetProgMenu: 
■ Close windows so that no inappropriate 

bsr WDHAPSHide 

bsr WDHATCHide 
: Delete the old menu (whichever it is) 

move.w#Aid12Menu,-(sp) 

_DeleteMenu 

move.w#Aid1 3Menu,-(sp) 
^DeteteMenu 

move.w#Aid1 4Menu,-{sp) 

_DeietaMenu 

move.w#SSl 5Menu.-(sp) 

_DieleteMenu 

rnove.w#NoneMenu,-(sp) 

_DeleteMenu 
; Default to NoneMenu 

lea MenuHandIes,a4 

move.i menunone(a4),-(sp) 

move.w#0,-<sp) 

_lnsertMenu 
;redraw the bar 

_DrawMenuBar 

move.w#0.-(sp) 

^HiLiteMenu 
; Now check what it is 
clr.w -(sp) 
bsr SCSIInterrogate 
move.w(sp)+.dO 
lea MenuHandles,a4 

..cmp.w #Aid12ID.dO 
bne NotAid12 
move.i menuaidl2(a4).a3 
bra AddProgMenu 

NotAid12: 

cmp.w #Aid13ID,dO 

bne NotAid13 

move.i menuaid13(a4).a3 

bra AddProgMenu 

NotAidl3: 

* cmp.w #Aid14ID.dO 

bne NolAid14 

move.i menuaidi 4(a4),a3 

bra AddProgMenu 

NotAidl4: 

cmp.w #SSl5lD.dO 



hearing aid to determine which 
places the appropriate menu 



windows remain. 



;c!ear any highlighting. 



;get handle 



;get handle 



;get handle 
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bne NotSSlS 

move.i menuss15(a4),a3 :get handle 
bra AddProgMenu 

NotSS15:. 

move.i menunone(a4),a3 

move.w#20.-(sp) 

_SysBeep 

AddProgMenu: 

move.w#NQneMenu,-{sp) 

^DeleteMenu 
move.i a3,-{sp) 
move.w#0.-{sp) 
JnsertMenu 

;redraw the bar 

_DrawMenuBar 

ClearReturn: u.^Mj.,htinn 
move.w#0..(sp) :clear any highlighting. 

_HiLiteMenu 
rts 

Siol^^Th? should be called when the mouse is clicked in the 

menu bar. 
Input: None 
Output: None 
MenuBar: 

cir.l -(sp) ;space for result 

move,! where.-(sp) -.location of mouse 
MenuSelect . 
move.i (sp)+.dO ;get result (menu id. item #) 



swap 



;got menu id in low word 



Choices: - 

cmp.w #0.dO ;Wa3 it m any menu? 

beq @1 menu id 

cmp.w #AppleManu.dO :Was it in the apple menu? 

beq In Apple Menu 

cmp.w #FileMenu.dO ;Was it in the file menu? 

beq InFileMenu 

cmp.w #NQneMenu.dO 

beq inSSMenu 

cmp.w <JAid12Menu,dO 

beq InAidMenu 
cmp.w ^Aid13Menu,dO 

beq InAidMenu 
cmp.w ^Aid14Menu.dO 

. beq InAidMenu 
cmp.w #SSl5Menu,dO 

beq InSSMenu 

@l bra ClearReturn 

InAppieMenu: 
; Getltem 
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swap dO i gel 'tern # in low word 

cmp.w #AboutIt9m.dO 
bne NotAbout 
Open About dialog window. 

FUNCTION NewWindow (wStorage: Ptr; boundsRect: Rect; 

title: Str255; visible: BOOLEAN; 
procID: INTEGER; behind: WindowPtr; 
goAwayFlag: BOOLEAN; 
refCon: Longint) : WindowPtr 



SUBQ 
CLRL 
PEA 
PEA 
MOVES 
MOVE 
MOVE.L 
move.B 
CLRL 

_NewWindow 
lea 

MOVE.L 
MOVE.L 

; PROCEDURE SetPort (gp: GrafPort) 
SetPort 



#4,SP 
-{SP) 

AboutBounds 
'About WDHA 
#255. -(SP) 
#dBoxProc,-(SP) 
#-1.-(SP) 
#-1 .-(SP) 
-(SP) 



AboutPlr,a4 
(SP)+.(a4) 
(a4).-{SP) 



Space for function result 
Storage for window (Heap) 

; Window position 
Window title 
; Make window visible 
; Standard document window 

;Make it the front window 
; Window has goAway button 
; Window refCon 

; Create and draw window 

: Save handle for later 

; Make sure the new window is the port 



Make it the current port 



#0.-(sp) 



-(sp) 



move.w 
_TextFont 
move.w#1 , 
_TextFace 
DispString 
move.wtfO 
_TextFace 
DispString 
DispString 
DispString 
DispString 
move.w#l 
_TextFace 
DispString 
-fnove.w#0,-(sp) 
_TextFace 
DispString 
DispString 
Print the big "CID" 

move.w#36.-(sp) 
^TextSize 
move.w#1 7,-{sp) 
_TextFace 

DispString #44.#64.CID 
Set text characteristics back to normal 
move.w#l 2,-(sp) 
^TextSize 

move.w#0.-(sp) ; Plain Text 

^TextFace 
; Wait for an event 



Make sure it's the system font 
Bold 



#20,#16,Wearable Digital Hearing Aid Fitting Procedure V. 1.0 
(sp) : Plain Text 

#200,#32.Central Institute For The Deaf 
#200, #48. 81 8 South Euclid Ave. 
#200. #64, St. Louis Mo. 63110 
#200. #80. Phone: 314-652-3200 
.(sp) ; Bold 



#20.#96, Supported in part by: 
; Plain Text 

#40.#112.The Rehabilitation Research And Development Service 
#40.#12B,Dept. of Medicine and Surgery: Veterans Administration 



Boid<i>Shadow 
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move.i #SOOOOFFFF.dO 
_FlushEvents . 

^FU^iCTON GetNextEvent{ev8ntMask: INTEGER; 

VAR theEvent: EventRecord) : BOOLEAN 

CLR -(SP) 
MOVE #SOOOF.-(SP) 
p£A EventRecord 

GalNextEvent 
^O/E (SP)t-.DO 
B£0 EvtWait 
; Dispose Window 

move.i AboutPtr.-(sp) 

_DisposWindo\w 

bj-a ClearReturn 

NotAbQUt: 

tea MenuHand!es,a4 
move.i menuapple(a4).-(sp) ; Look in Apple Menu 



; Clear space for result 
Allow 12 low events 

; Place to return results 
; Look for an event 
; Get result code 
No event.. Keep waiting 



move.wdO.-(sp) 
pea OeskName 
_Getltem 
: OpenDeskAcc 

clr.w -(sp) 
pga De^Neim© 
_OpenDeskAcc 
movo.w(sp)-!»,dO 
bra CloarRaturn 



; what item # 
; get item name 



; space for result 
; open DeskName acc 



; pop result 



InFileMenu; 

swap 
cmp.w 
bne 
bsr 
bsr 
_ExitToShell 

DoneFiie: 

bra 



dO 

#Quitltem,dO 
DoneFiie 
WDHAPSCIose 
WDHATCCIose 



ClearReturn 



; get item # in low word 
Is it quit? 

; If not forget it 
; dispose of the parameter settings window 
; dispose of the tesVcalibrate window 
; leave application 



InAidMenu: 



@9 



@1 



@2 



swap 

cmp.w 

bne 



bsr 
bra 

cmp.w 
bne 
bsr 
bra 
cmp.w 
bne 
bsr 
bra 
cmp.w 



dO 

#NewProgltem.dO 
@9 

SetProgMenu 
WMDone 

#Setltem.dO 
@1 

WDHAPSShow 
WMDone 
#Testltem,dO 
@2 

WDHATCShow 

WMDone 

^FCltem.dO 



get item # in low word 
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bne @4 

bsr WDHAFCSet 

bra WfwIOone 

@4 

WMDone bra ClearReturn 



InSSMenu: 

swap 

cmp.w 

bne 

bsr 

bra 

@1 cmp.w 
bne 
bsr 
bra 

@2 

SSDone bra 



dO ; g«t item # in low word 

#NewProgltem,dO 

@1 

SetProgMenu 
SSDone 
l»Loadltem,dO 
@2 

WDHASetFileParams 
SSDone 

ClearReturn 



-Data starts 



here- 



MenuHandles: 



AppleName; 
DeskName: 

AboutPtr 
AboutBounds: 



dcJ 


0 


;handle to apple menu 


del 


0 


;handle to file menu 


del 


0 


'.handle to aid12 menu 


del 


0 


:handle to aid13 menu 


del 


0 


;handle to aid14 menu 


del 


0 


;handle to ss15 menu 


del 


0 


;handle to none menu 


deb 


l.$14 


; A string containing the apple symbol 


dcb.w 


16.0 


;desk accessories name 


del 


0 


; the About dialog window pointer 


dew 


100 


; upper 


dew 


50 


; left 


dew 


232 


; lower 


dew 


472 


; right 
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-WOHAMenu header file 

; This file must be included if any routines in WDHAMenu are 
xref MakeMenus 
xref MenuHandles 
xref MenuBar 
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; file WDHAPS.Asm 

Include MacTraps.D 

Include ToolEqu.D 

Include SysEquX.D 

include QuickEquX.D 
Include SANEMacs.txt 
Include MDS2:WDHA.hdr 
include MDS2:WDHASCSI.hdr 



WDHA Paramater Settings Window Manager 

This package contains routines to manipulate the WDHA Parameter 
Settings window. This window contains an interface which controls the 
gain and limit of each channel of the WDHA by allowing the user to move 
bars on a graph of Frequency versus dB SPL (execute the program for a better 
understanding), this control is referred to as the -PSGraph" in the program 
documentation. Mext to this graph Is a chart (the -PSChart-) containing the 
numeric values of each channel's gain and limit. 

It also contains control buttons to specify if the WDHA should be in 
Hearing aid mode, if the input attenuation should be off or on. and whether 
the aid snould use the probe mike or the field mike. The output attenuation 

is automatically turned on or off by the program, it's control being used 

as an indicator of this status. 

Wherever the documentation refers to the term 'theta . it is refenng 

to the height of the lower bar of the bar graph, and wherever the documentation 

uses 'phi-, it refers to the height of the upper bar. 



XDE= 


WDHAPSOpen 


XDE? 


WDHAPSCIose 


XDEF 


WDHAPSShow 


XDEr 


WDHAPSHide 


XDEF 


WDHAPSDraw 


XDEF 


WDHAPSContro! 


XDEF 


WDHAPSIS 


XDEF 


WDHAPSSetParam 



Definitions- 



. Constant Definitions 

CHANNELS EQU 4 ; There are four channels 

• PSG = The Parameter Settings Graph 

PSGHeight EOU 1 20 : Graph height in pixels 

PSGChanWidth B3U 20 : each bar is PSGChanWidth P»;;B»sjvide^ 

PSGWidth EOU CHANNELS-PSGChanWidth ; Graph width in pixels 

PSGlnitX EQU 30 ; initial X coord (local) of ul comer of graph 

PSGlnitY BXI 20 : initial Y coord (local) of ul comer of graph 

• PSC = The Parameter Settings Chart 

PSCFWidth BXI 48 ; channel, gain and limit field width 

PSCFHeight ECXJ PSGHeight/(CHANNELS*1) ; height of box in chart 

PSCWidth BXJ 3'PSCF Width 

PSCInitX EQU PSGInitX+PSGWidth ; X coord (local) of ul comer of chart 
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PSCInitY 



EOU PSGinitY 



Y coord (local) of ul corner of chart 



. PS ^ The Parameter Settings Window 

PSInitX BXI 60 ; initial X coord, (global) of upper left corner 
PSInitY B3U 80 : initial Y coord (global) of upper left corner 
PSRightBSU PSInitX^PSGWidth^PSCWidth+rPSGlnitX*l40 

PSTxtSize ECU 12 

; PSCti = The Control Buttons „^^,^r^*K ,n 

PSCtllnitX EC3U PSGlnitX+PSGWidth^PSCWidth+10 
PSCtUnitY ECU PSGInitY-».5 
PSCtlFHeight EQU PSCFHeight 



Declarations- 



Subroutine 

; Name; WDHAPSOpen oc winHou^ 

; Function: Call this routine to create and display the PS Window. 

; Input: None 
• Output: None 

'^"'^L do.da/ao.ae*,-(sp, 

Set up document window. ^ o o^^*. 

NewWindow (wStorage: Ptr boundsRect. Rect. 

title: Str255; visible: B(X)LEAN; 
procID: INTEGER; behind: WindowPtn 
goAwayFlag: BOOLEAN; 
refCon: Longint) : WindowPtr. 
5P ; Space for function result 

_^gpj ; storage for window (Heap) 

WDHAPSBounds ; Window position 

-WDHA Parameter Settings' ; Window title 



; FUNCTION 



SUBQ 
CLR.L 
PEA 
PEA 
MOVES 
MOVE 
K/KDVE.L 
move^B 
CLRL 

_N0wWindow 
lea 

MOVE.L 

MOVE.L 
; PROCEDURE SotPort 

_SetPort 
: Add the control buttons 



#255. -(SP) 
#rDocProc,-(SP) 
#-1,-(SP) 
#-1.-(SP) 
-(SP) 



W0HAPSPtr.a4 
(SP)+.(a4) 
(a4)..{SP) 
(gp: GrafPort) 



Make window visible 
Standard document window 
;Make it the front window 
; Window has goAway button 
; Window refCon 
; Create and draw window 

; Save handle for later 

• Make sure the new window is the port 



Make it the current port 



bsr 
bsr 

movem. 
RTS 



PSAddControls 
WDHAPSOraw 

{sp)-(-.dO-d2yaO-a6 



Restore registers 



Name: WDHAPSCIose . 
Function: Call this routine to destroy the PS Window and remove it from 

the screen. 
Input: None 
Output: None 

WDHAPSCIose: ..^ 
movem.l d0.d7/a0-a6.-(sp) : save registers 
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move.l WDHAPSPtr.-(sp) 
_KillControls 
; Dispose Window 

move.l WDHAPSPtr..{sp) 
_DisposWindow 

movem.l (sp)+,d0-d7/a0-a6 ; restore registers 

rts 

; Name: WDHAPSShow 

; Function: This routine makes the PS window visible and frontmost. 
; Input: None 
; Output: None 
WDHAPSShow: 

movem.l d0-d7/a0-a6,-{sp) ; save registers 

; Bring it to the front 

move.l WDHAPSPtr.-(sp) 

^BringTo Front 
; Show Window 

move.l WDHAPSPtr,-(sp) 

_S how Window 

move.l WDHAPSPtr.-(sp) 

_SelectWindow ; So select it. 

movem.l (sp)+.d0-d7/a0-a6 ; restore registers 

rts 

; Name: WDHAPSHide 

; Function: This routine makes the PS window invisible, removing it from the 
• ; screen (but not destroying it). 
: Input: None 
: Output: None 
WDHAPSHide: 

movem.l d0-d7/a0-a6,-{sp) ; save registers 

; Hide Window 

move.l WDHAPSPtr,-{sp) 
_HideWindow 

movem.l (Sp)+,d0-d7/a0-a6 ; restore registers 

rts 

; Name: WDHAPSOraw 

; Function: This routine draws the PS window's contents. 
; Input: None 
; Output: None 
WDHAPSOraw: 

movem.l d0-d7/a0-a6.-(sp) ; save registers 

lea WDHAPSPtr,a4 ; Pointer on stack 

M0VEL{a4).-{SP) 
; PROCEDURE SetPort (gp: GrafPort) 

_SeiPort ; Make it the current port 

; First draw the graph 

pea WDHAPSGraph 

_EraseRect ; clear it 

pea WDHAPSGraph 

_FrameRect ; Frame it 

move.w#paiOr,-(sp) 
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_PenMode : change to Or pen mode. 

move.wi^0,d4 : count thm channels 

DrawChans: : <=*''aw *=^^""^' 

cmp.w #CHANNELS.d4 ; done yet? 

beq DoneOC ♦ 
; Draw Thota Bar 

oaa ThetaPat _ , 

PQ^Pat ; set pen pattern to ThetaPat 

movQ.wd4.-{sp) ^ , 

bsr CaiThetaRect ; Calculate theta rectangle 

pea TRect 

^PaintRect ; with pattern 

: Draw Phi Bar 

pea PhiPat , 
^PQPiPat ; sat pen pattern to PhiPat 

move.wd4,-(sp) 
bsr CalPhiRect 
pea TRect 

^PaintRect : P>" with pattern 

add.w #1,d4 
bra DrawChans 

^*^"^^^_PQnNormal ; Reset Pen to original settings 

movs.w#PSTxtSi2e,-(sp) 
TaxtSi20 

movQ.w#PSGInitX-^0^PSGChanWidth+PSGChanWidth/2,-{sp) 
movQ.w#PSGInitY+PSGH8ight^PSTxtSi2e.-(sp) 

_MoveTo 
move.w#* V,-(sp) 
DrawChar 

move.w#PSGlnitX+rPSGChanWidth+PSQChanWidth/2..(sp) 
move.w#PSGInitY+PSGHeight+PSTxtSi2e.-{sp) 

_MoveTo 
move.w»*2\-(sp) 
DrawChar 

move.w#PSGlnitX*2^PSGChanWidth*PSGChanWidth/2,.{sp) 
move.w#PSGInitY+PSGHeight+PSTxtSi2e,-{sp) 

_MoveTo 

movo.w»*3\-(sp) 

DrawChar ^ ^ ^ 

move.w#PSGInitX+3'PSGChanWidth+PSGChanWidthy2,-{sp) 

move.w#PSGInitY+PSGHeight-t.PSTxtSi2e..{sp) 

_MoveTo 

move.w*?*4',-(sp) 

DrawChar ^ ^ ^ 

move.w^PSGInitX*(CHANNELS/2)^PSGChanWidth.25.-{sp) 

move.w#PSGInitY*PSGHaight^2^PSTxtSi2e..(sp) 

_McveTo 

pea 'Channel' 

Drawstring 
move.w#PSGInitX-20.-(sp) 
move.w#PSGInitY-.PSGHeighV2-PSTxtSi2e.-(sp) 

MoveTo 
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pea 'dB* 
_DrawString 

move.w#PSGInitX-24,.{sp) 
move.w#PSGInitY+PSGHeight/2.-(sp) 

MoveTo 

_DrawString 
move.w#9.-(sp) 

TextSize 
move.w#PSGInitX-9.-{sp) 
move.w#PSGInitY+PSGHeight.-{sp) 

_MoveTo 

move.w#*0\-(sp) 

_DrawChar 

rnove.w#PSGlnitX-20,-(sp) 

move.w#PSGInitY+9.-(sp) 

_MoveTo 

pea '120' 
_DrawString 
; Now draw the chart. 
_PenNormai 
pea WDHAPSChart 
_FrameRect 

move,w#PSGInitX.-(sp) 
move.w#PSCInitY^.VPSCFHeight,-(sp) 

_MoveTo 

move.w#PSCInitX+PSCWldth.-(sp) 

move.w#PSCInitY+rPSCFHeight,-(sp) 

_UneTo 

move.w#PSCInitX,-{sp) 
move.w#PSCInitY-t-2'PSCFHeight.-(sp) 

^MoveTo 

move.w#PSClnitX+PSCWidth.-{sp) 
move.w#PSCInitY4-2-PSCFHeight-{sp) 

_LineTo 

move.w#PSCInitX.-(sp) 
move.w#PSCInitY-»-3*PSCFHeight.-(sp) 

_MoveTo 

.-move.w#PSCInitX+PSCWidth..{sp) 
move.w#PSC!nitY+3'PSCFHeight.-(sp) 
_LineTo 

move.w#PSCInitX..(sp) 
move.w#PSClnitY+4-PSCFHeight.-(sp) 

MoveTo 

move.w#PSCInilX+PSCWidth,-(sp) 
move,w#PSClnitY+4-PSCFHeight.-(sp) 

_LineTo 

move.w#PSCInitX-^PSCFWidth.-{sp) 

move.w#PSCInitY.-(sp) 

_MoveTo 

move.w#PSCInitX^-PSCFWidth..(sp) 
move.w#PSCInitY+PSGHeight.-(sp) 
_LineTo 

rnove.w#PSClnitX*2*PSCFWidth,.(sp) 
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mov8.w#PSCInitY..{sp) 
MoveTo 

move.w#PSC!nitX+2'*PSCFWidth.-(sp) 

move.w#PSCInilY+PSGHeighi.-{sp) 

_LineTo 

movQ.w#PSCInitX+6,-(sp) 
move.w#PSCInitY+PSCFHeight-6,-{sp) 

_MoveTo 

pea 'Channel' 

DrawSlring 
move.w#PSCInitX-(.PSCFWidth+11.-(sp) 
mov©.w#PSC1nitY+PSCFH©ight-6,-{sp) 

_Mov©To 
paa 'Gain* 
_DrawString 

mov8.w«PSClnitX+2*PSCFWidth+10.-(sp) 
move.w#PSCImtY<-PSCFHfl!ght-6.-(sp) 
_MoveTo 
pea 'Limit' 

^Drawstring « w i 

move w#CHANNELS,d4 ; Now draw the chart data with PnntVal 
133 Th8ta3,a0 : will draw the gains and limits too 

DrChartNums: 

; Draw channel n 

move.w#0,-{sp) ; Column 0 

mov0.wd4.-(sp) ; Row is same as channel 

mov0.vyd4.-(sp) : value is channel 

. bsr PrintVal 

; Draw gain 

move.w#1 .-(sp) \ now do gain 

move.wd4.-(sp) : Row is same as channel 

move.w(aO).-{sp) ; Show the theta value as gain 
bsr PrintVal 
; Draw limit 

move.w#2,-(sp) ; now do limit 

move.wd4.-(sp) ; Row is same as channel 

move.w2(a0).-(sp) ; Show the Phi value as limit 
bsr PrintVal 
,lea -4(aO).aO 
sub.w #l.d4 

bne DrChartNums 
; Draw the control buttons. 

move. I WDHAPSPtr.-(sp) ; the window ptr 
_DfawControls 

tjsr WOHAPSSetParam ; update the WDHA. 

movem.l (sp) + .d0.d7/aO-a6 ; restore registers 

rts 

; Name: PSAddControls 

; Function: This routine adds the PS window's controls. 
; Input: None 
; Output: None 
PSAddControls: 

movem.l d0-d7/a0-a6.-{sp) ; save registers 
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Set up the controls bounding rectangle, 
lea TRect.a4 

move.w#PSCtMnitY+0-PSCtlFHeight.(a4) ; store y coord 
move.w#PSCtIlnitX.2(a4) ; store x coord 

move.w#PSCtl!nitY^O-PSCtlFHeight+20.4(a4> ; store y coord 

move.w#PSRight,6(a4) ; store x coord 

• Push parameters for NewControl • 
^Ij. , .(sp) ; NewControl returns a handle 

move.) WDHAPSPtr.-(sp) ; the window ptr 

TRect : t^^e rectangle bounding the control 

pea 'Hearing Aid On' ; title 

move.b «fTRUE,-(sp) : visible 

move.w#0.-(sp) : value 

move.w#0.-{sp) ^ 
move.w#l,-{sp) 

move.w#1 ,-(sp) : check box proc id 

move.I #0..(sp) : refcon not used 

; Call NewControl 

^NewControl 

tea AidControi,a3 

move.! (sp)-i..(a3) ; store the result 

; Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#PSCtllnitY-^TPSCtlFHeight.(a4) ; store y coord 
move,w#PSCtllnitX.2(a4) ; store x coord 

move.w#PSCtllnitY+1-PSCtlFHeight+20.4{a4) ; store y coord 

move.w#PSRight,6(a4) ; store x coord 

: Push parameters for NewControl 

^jj. I -(sp) ; NewControl returns a handle 

move.I WDHAPSPtr,-(sp) : the window ptr 

p^g^ jRQCt ; the rectangle bounding the control 

pea 'Input Attenuation' ; title 

move.b #TRUE,-(sp) : visible 

move.w#0..{sp) : value 

move.w#0.-(sp) : ™" 

move.w#1..{sp) : ^ 

move.wi^l .-(sp) : check box proc id 

move.I #0.-(sp) ^ refcon not used 

; Call NewControl 

_NewControl 

lea IAControl,a3 

move.I (sp)+.(a3) : store the result 

; Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#PSCtllnitY*2-PSCtIFHeight.(a4) ; store y coord 
move.w#PSCtllnitX,2(a4) : store x coord 

move.w#PSCtnnitY*2-PSCtlFHeight+20.4(a4) ; store y coord 

move.w#PSRight.6(a4) ; store x coord 

; Pusti parameters for NewControl 

I .(sp) ; NewControl returns a handle 

move.I WDHAPSPtr.-{sp) : the window ptr 

XRect ; the rectangle bounding the control 

pea 'Output Attenuation' ; title 

move.b ffTRUE.-{sp) ; visible 
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; store the result 



move.w^O.-(sp) : value 

movQ.w^O.-(sp) ; 'Ti*" 

move.w#l.-{sp) : "^ax 

move.w#1..{sp) ; check box proc id 

move.l #0..{sp) : refcon not used 

Call NewControl 

_NewControl 

iea OAControl.aS 
move.l (sp)-t..{a3) 
; Sat up the controls bounding rectangle, 
lea TRect.a4 
move.w#PSCtllnitY+3"PSCtlFHeight,(a4) 
move.w#PSCtllnitX.2(a4) ; store x coord 
move.w#PSCtilnitY+3'PSCtlFHeight-^20,4(a4) 
move.w#PSRight,6(a4) ; store x coord 

• Push parameters for NewControl l,^^^,^ 
^Ij. I .(sp) ; NewControl returns a handle 

movQj WDHAPSPtr.-(sp) : the window ptr 



store y coord 



store y coord 



the rectangle bounding the control 
title 



visible 



pea TRect 
paa 'Field Mike* 

move.b ^TRUE.-(sp) : 
move.w^l ,-(sp) 
mov©.w#0,-(sp) 
movQ.w^l .-(sp) 
move.w#2.-(sp) 
movQ.l #0.-(sp) 
Call NewControl 

^NewControl 

lea FieldControl.a3 
move.l (sp)->'.(a3) 
Set up the controls bounding rectangle, 
lea TRect.a4 
move.w^PSCtllnitY-t.4"PSCtIFHeight,(a4) 
move.w#PSCtnnitX,2(a4) ; store x coord 
movQ.w#PSCUInitY+4*'PSCtlFHeight+20.4(a4) 
move.w#PSRight,6(a4) ; store x coord 

; Push parameters for NewControl 

^Ij. I .(sp) ; NewControl returns a handle 

move.l WDHAPSPtr,.{sp) ; the window ptr 



make Field mike on as the default 
min 
max 

radio button proc id 
refcon not used 



store the result 



store y coord 



store y coord 



pea TRect 
pea 'Probe Mike* 

move.b »TRU£.-(sp) 
move.w#0.-{sp) 
mov©.w#0.-{sp) 
mov©.w#1 .-(sp) 
move.w#2.-(sp) 
move.l #0,-(sp) 
Call NewControl 

^NewControl 

lea ProbeControl.a3 

move.l {sp)+,(a3) 

movem.l {sp) + .d0-d7/a0-a6 

rts 



visible 



the rectangle bounding the control 
title 

value 

min 

max 

radio button proc id 
; refcon not used 



store the result 
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: CalThetaRect ciculates the rectangle surrounding the control bar for the 
: given channel. 

; Input: the channel # (a word) is passed on the stack. 

; Output: the rect TRect is filled. 

CalThetaRect: 

movem.l dO-d7/aO-a6,-(sp) 

lea TRect.a4 ; get address of TRect 

move.w#PSGtnitY4-PSGHeight,d4 ; bottom of graph 

move.wd4,4(a4) ; store it in TRect 

lea ThetaO,a3 ; Get theta 

move.w64{sp),d3 ; Get channel number 

asl.w #2.d3 ; '4 

sub.w (a3.d3.w),d4 ; compute top of bar y coord 
. move.wd4,(a4)* ; store It in TRect 

move.w64{sp).d3 ; Get channel number 
mulu #PSGChanWidth,d3 ; channel # • ChanWldth 
add.w #PSGInitX,d3 : move over 
move.wd3,2(a4) ; store left side 

add.w #PSGChanWidth,d3 ' ; add width 
move.wd3,6(a4) ; store right side 

pea TRect 
move.w#1 .-(sp) 
move,w#1 ,-(sp) 

_lnsetRect ; make it a tad smaller 

sub.w #1,(a4) ; not the top level though 

movem.l (sp) + ,dO-d7/aO-a6 

move. I (sp),2(sp) ; move return address over param 
tst.w (sp)-t- ; get rid of parameter 

rts : and return 

; CalPhiRect ciculates the rectangle surrounding the control bar for the 
; given channel. 

; Input: the channel # (a word) is passed on the stack. 

; Output: the rect TRect is filled. 

CalPhiRect: 

movem.l d0-d7/a0-a6.-{sp) 

lea TRect,a4 ; get address of TRect 

move.w#PSGInitY,d4 ; top of graph 

move.wd4.(a4) ; store it in TRect 

lea PhiO,a3 ; Gel Phi 

move,w64{sp),d3 ; Get channel number 

asl.w #2.d3 ; '4 

move.w#1 20. d5 

sub.w {a3,d3.w)»d5 ; compute bottom of bar y coord 
add.w d5.d4 

move.wd4,4(a4) ; store it in TRect 

move.w64{sp).d3 ; Get channel number 

- mulu #PSGChanWidth.d3 ; channel u • ChanWidth 
add.w #PSGInilX,d3 ; move over 
move.wd3.2(a4) ; store left side 

add.w #PSGChanWldth,d3 ; add width 
movo.wd3.6(a4) ; store fight side 

pea TRect 
move.w#l ,-(sp) 
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move.w^l ,-(sp) 

InsetRect : friak© it a tad smaller 

add!w #1 .4(a4) : not the bottom though 

movem.l (sp)-^,d0-d7/a0-a6 

move.l (sp).2(sp) ; move return address over param 
tst.w {sp)+ ; get rid of parameter 

rts ; and return 

Name: PrintVal . 
Function: This routine prints the given value at the specified row and 

column of the PSChart. 

Input: d3 (word) = value, d4 a row. d5 ^ column 
Output: None 
PrintVal: 

movem.l d0.d7/a0-a6.-(sp) : save registers 

move.w64(sp),d3 : d3 ^ value to be printed 

move.w66(sp).d4 : cl4 = Row m chart 

move.w68(sp).d5 : ^5 = column in chart 

; compute X coord ^ * u r 

mulu #PSCFWidth.d5 ; column * width of each field 

add.w #PSClnitX-t.24.d5 ; shift over 
: compute y coord 

add.w ^#1,d4 ;add 1 to row ^ ^ 

mulu ^PSCFHeightd4 ; - height of each field 

add.w #PSCInitY-6.d4 ; shift down and then up a little 

; erase whatever is there already. « . . 

iQa TR3Ct.a2 ; we'll put it in Trect 

move.wd5.2(a2) : our x is the left x 

move.wdS.6(a2) : then compute the right 

add.w #20,6(a2) ; as 20 over from the left 

move.wd4.4(a2) : our y is the bottom y 

move.wd4.(a2) ; then compute the top 

sub.w ^PSTxtSi2e.(a2) ; as TxtSize up from bottom 

pea TRect ; now erase it 

_EraseRect 
; move there 

move.wd5.-(sp) 
move.wd4,-(sp) 
_MoveTo 

: convert value to string ^ 

move wd3.dO : NumToString expects val in dO 

lea NumBuf.aO ; address of NumBuf in aO 

move.w*^0.-(SP) ; Select NumToString 

_Pack7 

pea NumBuf 
_DrawString 

movem 1 (sp)+,dO-d7/aO-aS 

move.l (sp).6(sp) ; move return address over parameters 

add.l ^S.sp ; get rid of parameters 

rts 

; Name: WDHAPSIS 

; Function: This routine returns a Boolean telling whether or ROt 
I the given window pointer is the PS window's pointer. 
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• Input* A window pointer (passed on the stack) 

' Output: a word. TRUE or FALSE (defined in WDHA.hdr) returned on the stacK 

"Note: You do not have to push a word for the result of this routine. 
WDHAPSIS: 

a4/d4.-{sp) 
8(sp),a4 
12(sp).d4 
WDHAPSPtr,d4 
IS10 

#FALSE,14(sp) 
IS20 

#TRUE,14(sp) 
a4,10(sp) 

(sp)+. a4/d4 

(sp)-K 



IS10: 
IS20: 



movem.I 
move.i 
move. I 
cmp.l 
beq 

move.w 
bra 

move.w 
move. I 
movem.I 
tst.w 
rts 



; save registers 
; get return address in a4 
: get WindowPtr in d4 
Was it our window? 
It Is 

save result 



put return address back 

; restore registers 
; get rid of extra two bytes 
: return 



; Name: WDHAPSControl 

• Function: This routine should be called whenever a mousedown event occurs 

• within the contents of the PS Window. It handles the hilightmg of the 

• proper control buttons, and sends the proper records to the WDHA. 

; Input: The mouse location (on the stack), from the event's where field. 

; Output:. None 

WDHAPSControl: 

movem.I d0-d7/a0-a6,-(sp) 

move.i WOHAPSPtr.-(sp) 
; PROCEDURE. SetPort (gp: GrafPort) 

_SetPort 

port 



; WDHAPSPtr on stack 



Make sure ifs the current 



pea 64(sp) 

_G!obalToLocal 
; Was it in a control button? 
ButtonCheck: 
; call FindControl 

cir.w -(sp) 

move.i 66(sp).-(sp) 

move.i WDHAPSPtr..(sp) 

pea WhichControl 

^FindControl 

tst.w (sp)+ 

lea WhichControUa4 
tst.l (a4) 
beq ChanCheck 
; if it was in a control, call TrackControI 
cIr.w -(sp) 

move.i WhichControl,-{sp) 
move.i 70(sp),-(sp) 
move.i #0,-(sp) 
_TrackControl 
tst.w (sp)* 
beq NoChan 
; Was it the output Attenuation button? 

lea WhichControl. a4 



; push address of point 
convert it to the window's coords 



returns a long 
push point in local coords 
; WDHAPSPtr on stack 
; which one? 

; pop result 

; Was it in any of Ihem? 
; if not try the graph 

; returns a word 

; WhichControl now has the handle 
; starting point 

; no action proc 

; did they change the button? 
; if not then leave 



wo 94/23548 



PCT/US94/04004 



72 



move. I OAControl.d4 

cmp.l (a4),d4 

bne NotOA 



; if not then was it the lA button? 



it was the output attenuation button so adjust the bar heights 



cir.w 
lea 

CGLoop1 1 : 

cmp.w 
baq 
cir.w 
bsr 



d3 



; use d3 as a channel counter 



ThetaO.aS 



#CHANNELS.d3 
InvBut 

-{sp) 

GOUT 
move.w(a3).dO 
sub.w {sp).dO 
move.wd0.(a3) 
rnove.w2(a3).d1 
sub.w (sp)+.d1 
move.wdl,2(a3) 
lea 4{a3).a3 
add.w #i,d3 
bra CGLocpll 



get Theta in dO 

subtract the old GOUT from Theta 
store Theta 

; get phi in d1 

; subtract the old GOUT from Phi 
; store phi 



InvBut: 



clr.w -(sp) 
move. I OAControl.-tsp) 
_G©tCtIVaiua 
move.w(sp)-«-,d3 
not.w d3 
and.w #1.d3 
move.l WhichControl,-(sp) 
move.wd3.-(sp) 
SetCtlValue 



ctr.w 
lea 

CGLoopl2: 

cmp.w 
beq 
clr.w 
bsr 



d3 



; GetCtlValue returns a word 

; now value is in d3 
; invert the status. 

; set it to the new value. 

; use d3 as a channel counter 



Theta0,a3 



#CHANNELS,d3 

UOScreen 

-(sp) 

GOLTT 
move.w(a3),d0 
add.w (sp).dO 
move.wd3.-(sp) 
move.wdO,-(sp) 
bsr VafidGain 
move.w{sp)*.(a3) 
move.w2(a3).d1 
add.w (sp)+.d1 
move.wd3,-(sp) 
move.wdl.-(sp) 
bsr ValidLimit 
move.w(sp)-8-.2(a3) 
lea 4(a3).a3 
add.w #l,d3 



; get Theta in dO 
; add the new GOUT 

; now clip the gain as necessary 

; the new gain 

; store it 

; get phi in d1 

; add the new GOUT to Phi 

; now clip the limit as necessary 

; the new limit 

; store phi 
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CGLDop12 



move.! IAControl.d4 
lea WhichContro!.a4 

cmp.i (a4),d4 
bne OtherBut 



It was the input attenuation button so adjust the bar heights 



if not then forget it. 



cir.w d3 
tea Theta0.a3 
CGLoop2l: 

cmp.w #CHANN£LS.d3 
beq lnvBut2 
cIr.w -(sp) 
bsr GIN 
; the gain (the limit is not affected) 
move.w(a3).d0 
sub.w (sp)-*-.dO 
move.wd0.(a3) 
; go to the next channel 

lea 4(a3),a3 

add.w #1,d3 

bra CGLoop21 



; use d3 as a channel counter 



get theta 

; subtract the old GIN 
store it back 



lnvBut2: 



cir.w -(sp) 
move, I lAControl.-{sp) 
^GetCtlValue 
mcve.w{sp)+.d3 
not.w d3 
and.w #l.d3 
move. I WhichControl,-(sp) 
move.wd3,-(sp) 
SetCtlValue 



cir.w 
lea 

CGLoop22: 

cmp.w 
beq 
cir.w 
bsr 



d3 



; GetCtlValue returns a word 

: now vaiue is In d3 
; invert the status. 

; set it to the new value. 

: use d3 as a channel counter 



Theta0,a3 



#CHANNELS.d3 

UDScreen 

-(sp) 

GIN 

move.w(a3),d0 
add.w (sp)-t-.dO 
move.wd3.-(sp) 
move.wdO.-(sp) 
bsr ValidGain 
move.w(sp)+.(a3) 
go to the next channel 

lea 4(a3}.a3 

add.w #l.d3 

bra CGLoop22 



get 



theta 

: add the new GIN 
; now clip the gain 
; the new gain 

: store it 



as necessary 



UDScreen 
bsr 



WDHAPSDraw 
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bra 



NoChan 



; invert the control value 
OtherBut: 

cir.w -(sp) 

move. I WhichControl.-{sp) 
_GelCtIVaiue 

move.w(sp)-*-.d3 

not.w d3 

and.w #1.d3 

move. I WhichControU-(sp) 

move.wd3,-(sp) 

_SetCtlValue 
; Was it the Field button? 

move.l FieidControl.d4 

lea WhichControl.a4 

cmp.l (a4).d4 

bne NotField 
; Otherwise invert off the Probe mike 

cIr.w -(sp) 

move.! ProbeControI.-(sp) 

^GetCtlValue 

move,w(sp)+,d3 

not.w d3 

and.w #1.d3 

move.! ProbeContrGl,-{sp) 

move.wd3.-(sp) 

_SetCt!Value 

bra NoChan 
; Was it the Probe button? 
NotField: 

move. I ProbeControl,d4 
lea WhichControl.a4 
cmp.l (a4).d4 
bne NoChan 
; Otherwise invert the Field mike 
cir.w -(sp) 

move. I FieldControl.-(sp) 

_GetCtI Value 

move.w(sp)+,d3 

not.w d3 

and.w #1,d3 

move.t FteldControl.-(sp) 

movQ.wd3.-(sp) 

_SetCtlVa!ue 

bra NoChan 



; GetCtlValue returns a word 

« 

; now value is in d3 
; invert the status. 

; set it to the new value. 



; if not then forget it 
GetCtlValue returns a word 

; now value is in d3 
; invert the status 

; turn off Probe button 



; if not then forget it 
GetCtlValue returns a word 

; now value is in d3 
invert the status 

; turn off Probe button 



ChanCheck: 

move.w#0,d4 

lea ThetaO,a4 
FindChan: 

cmp.w #CHANNELS.d4 

beq NoChan 
: Is it a theta bar? 



; count thru channels 

; draw each channel 
; done yet? 
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move.wd4.-(sp) 
bsr CaiThetaRect 
clr.w -(sp) 
move. I 66(sp).-(sp) 
pea TRect 
_PtlnRect 
tst.w (sp)^ 
bne FoundTheta 
Is it a phi bar? 

lea 2{a4).a4 
move.wd4.-{sp) 
bsr CalPhiRect 
clr.w -(sp) . 
move. I 66(sp).-(sp) 
pea TRect 
PtInRect 



Calculate theta rectangle 
make room for result 
push mouse point 
theta rect in TRect 



Calculate theta rectangle 
make room for result 
push mouse point 



tst.w 

bne 

lea 

add.w 
bra 



FoundPhi 
2(a4).a4 
#1,d4 
FindChan 



; a4 points to Theta, d4 contains the channel number. 
FoundTheta: 

pea ThetaPat 

^PenPat 

move.w(a4),d3 : hold onto original theta 

*: While the button is down move the bar around, changing theta 
FTLoop: 



clr.w -(sp) 
_StillDown 
tst.w (sp)+ 
beq NoChan 
Get the point. 

pea TPoint 
_Getfw1ouse 
First Erase Old Bar 

move.w#patBic,-(sp) 
_PenMode 
move.wd4,-(sp) 
bsr CaiThetaRect 
pea TRect 
_PaintRect 
; Now change the theta parameter 
move.w64(sp),d5 
sub.w TPoint.dS 



Make room for result 
is the button still down? 



If not then exit othenwise.. 



Get mouse location 



; this will be a negative value if they move down 



the vertical coordinate of start point 
original y - current y 



move.wd3,(a4) 
add.w dS,{a4) 
Is it OK? 

move.wd4..(sp) 
move.w(a4).-(sp) 
bsr ValidGain 
move.w(sp) + ,(a4) 



restore original 
; change theta 



theta 



channel # 
: gain 

; make sure gain is in range 
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: Now draw the new bar 
ThDrBar: 

move.w#patOr,-(sp) 
^PenMcxje 
move.wd4.-(sp) 
bsr CalThetaRect 
pea TRect 
_PaintRect 
; Now update the chart value. 

cmp.w (a4)»d3 ; is there any difference? 

beq FTLoop ; I? not then don*l bother 

move.w«l,-{sp) ; gain column in chart 

move.wd4,-{sp) ; row is channel # 

add.w #l,(sp); -t- i 

move.w(a4).-{sp) ; value 

bsr PrinlVal 

bra FTLoop 

; a4 points to Phi, d4 contains the channel number. 
FoundPhi: 

paa PhiPat 

^PonPat 

move.w(a4).d3 ; store old Phi 

; While the button is down move the bar around, changing theta 
FPLoop: 

cir.w -(sp) : Make room for result 

StillDown : Is the button still down? 

tst.w {sp)+ 

beq NoChan ; If not then exit othenwise... 

; Get the point 

pea TPoint 

_GetMouse ; Get mouse location 

: First Erase Old Bar 

move.w#patBic.-(sp) 
_P en Mode 
move.wd4,-(sp) 
bsr CalPhiRect 
pea TRect 
_PaintRect 

: Now change the Phi parameter , , ^ 

move.w64(sp).d5 ; the vertical coordinate of start point 

sub.w TPoint.dS : original y - current y 

: this will be a negative value if they move down 

move.wd3.(a4) ; restore original Phi 

add.w d5.(a4) ; change Phi 

; Is it OK? 

move.wd4,-(sp) ; channel n 

move.w{a4).-{sp) : *<"^»t 

bsr ValidLinnit ; make sure limit in range 

move.w(sp)-*'.(a4) 
; Now draw the new bar 
PhiDrBar: 

; Now draw the new bar 

move.w«patOr.-(sp) 
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_PenMode 
mov0.wd4.-(sp) 
bsr CalPhiRect 
pea TRect 
_PaintRect 
Now update the chart value. 

cmp.w (a4).d3 ; is there any difference? 



fc>eq FPLoop 
move.w#2,-(sp) 
movo.wd4,-(sp) 
add.w #1,(sp); + 
move.w(a4).-(sp) 
bsr PrintVal 
bra FPLCX5P 



If not then don't bother 
limit column in chart 
row IS channel u 

value 



NoChan: 



_PenNormal 

bsr WDHAPSSetParam 
movom.l (sp)+.dO-d7/aO-a6 
move, I (sp)-i-,(sp) ; get rid of param 

rts 



; update any changes made to the WDHA. 



; Name: WDHAPSSetParam 

; Function: This routine sets the WDHA to the parameters set in the WDHA 

; window, 

; Input: None 

; Output: None 

WDHAPSSetParam: 

movem.l dO-d7/aO-a6,-{sp) ; save registers 

; Fill all fields of the paramrec except the gain/input select word. 

bsr CalcGainsLimits ; calculate the gains and limits. 

: Now calculate the select word by looking at the control buttons. 

lea paramrec.a4 ; get the gain/input select word 

move.wt 6(a4),d4 ; get the gain input select word 

SPIA: : set input attenuation bit 

cir.w -{sp) ; GetCtlValue returns a word 

move.l IAControl,-(sp) ; the handle 
GetCtlValue 



tst.w 
beq 



(sp)-i 



SPNolA 



SPDoIA: 



bset.l 
bra 



#INPUT.d4 

SPOA 



SPNolA: 



SPOA: 



bcir.l #iNPUT.d4 

cIr.w -(sp) 

move.l OAControl,-(sp) 

_GetCtIValue 

tst.w (sp)+ 

beq SPNoOA 



; set output attenuation bit 
GetCtlValue returns a word 
the handle 



SPDoOA: 



bset.l 
bra 



#OUTPUT.d4 

SPField 



SPNoOA: 
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bclr.l #0UTPUT.d4 



SPFieid: 



cir.w -(sp) 

move. I FieldControi.-(sp) 

_GetCtlValue 

tst.w (sp)-^ 

SPNoFiald 



; set the field mike bit 
GetCtlValue returns a word 
the handle 



SP Probe 



beq 

SPOoField: 

bset.I #FlELD.d4 

bra 
SPNoField: 

bcir.l #FiELD,d4 

SPProbe: 

cIr.w -{sp) 

move. I ProbeControl.-(sp) 

_GetCtlValue 

tst.w {sp)+ 

beq SPNoProbe 

SPDoProba: 

bsat.t #PROBE,d4 

bra SPSendParams 

SPNoProba: 

bclr.l ^PR0BE,d4 
SPSendParams: 

movo.wd4,16{a4) 



; set the probe mike bit 
GetCtlValue returns a word 
the handle 



store the modified select \word. 



; Now sand the parameters to the WDHA 

lea paramrac,aO 

bsr SetParam 
; now wait a little while the WDHA does ifs thing. 

move.l #lOOOO,d1 

SPWait: 

sub.l 

bne SPWait 
; Now put the WDHA in either hearing aid state or idle state depending on 
; the status of the "Hearing Aid On" button. 



clr.w -(sp) 
move.l AidControl,-(sp) 
. ^GetCtlValue 
tst.w (sp)4. 
baq SPAidOff 
move.w#-l .dO 
bra SPSetMode 

SPAidOfi: 

move.w«-1 OO.dO 

SPSetMode: 

jsr scsiwr 



GetCtlValue returns a word 
: the handle 



go to hearing aid mode 



; go to idle mode 

;send mode code to WDHA 



SPDohe: 



movem.l 
rts 



{sp)-^.d0.d7/a0-a6 ; restore registers 



Name: CalcGainsLimits , 
Function: Compute the gains and limits fields of the paramrec from 
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the heights of the theta and phi bars of the bar graph, and the status of 
the attenuation control buttons, 
input: None 
Output: None 

If any of the gains or limits produce an out of range value the 
variable called 'Clipped' will have a non-zero value upon return., 
CalcGainsLimits: 

a0-a6/d0-d7.-(sp) 
Clipped, a1 



movem.l 
lea 
cir.w 
lea 
lea 
lea 



(a1) 



Theta0,a4 

paramrec,a2 

He,a3 



DCLoop: 



move.w#CHANNELS.d6 

i: 

move.w(a4),d4 
sub.w (a3),d4 
8(a3).d4 
#60. d4 
-(sp) 

GIN 
(sp)-»-.d4 
-(sp) 

GOUT 
(sp)+,d4 
limit 



sub.w 
sub.w 
cIr.w 
bsr 
sub.w 
cir.w 
bsr 
sub.w 
; Now calculate the 
DoLimit: 

move.w2(a4).d5 
sub.w d4.d5 
sub.w 8{a3).d5 
cir.w -(sp) 
bsr GOLTT 
sub.w (sp)+.d5 
; Now convert both to linear. 
; First the gain 
ToLinear: 

: but first store Gd and Ld 



; thetaO here 
; gainO here 

loop through four channels 

; get thetaO (= So) 
; subtract He 

; subtract Hr 

; subtract GIN 



subtract GOUT 



: Got height («So lim) in 65 
Subtract Gd 

; subtract Hr 
subtract GOUT 



move.w 
move.w 
lea 

move.w 
pea 
pea 
FI2X 
pea 
pea 
fdivx 
pea 
fexpx 
pea 
pea 
fmulx 
pea 
pea 



d4,(a6) 
d5.2(a6) 



store Gd 



store Ld 



arg1 
arg4 



fp20dBe 
arg4 

arg4 



arg1,aO 

d4.(aO) ; store gain (dB) in arg1 

;dB gain 
;fpdB gain 

;convert from integer to extended fp 
;20 • log base 1 0 of e = 8.685889638 
rfpdS gain 



;db/fp20dbe (result in arg4) 



'.base e exponential (db ratio in arg4) 



twoex14 
arg4 

arg4 
argl 



;scale it •2E16 to convert it to fixed point 
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-.convert extended to integer 
; store the gain 
; get the gain 



fx2i 

move.wargl ,(a2) 
move.wargi ,dl 
cmp.w #l 6384,dl 
bis DCDoLimit 
move.w#16384.(a2) ; store the gain 
lea Clipped^at 



add.w 




; Now the Hmit 




DCDoLimit: 




tea 




move.w c 


pea 


arg1 


pea 


arg4 


FI2X 




pea 


fp20dBe 


pea 


arg4 


fdivx 




pea 


arg4 


fexpx 




pea 


arg4 


paa 


arg1 


pea 


twoexl - 


pea 


arg4 


fmulx 




fx2i 





argi ,aO 

; store limit (dB) in argt 
idB limit 
ifpdB limit 

iconvert from integer to extended fp 
■20 " log basa 10 of e « 8.685889638 
;fpdB limit 
;db/fp20dbe (result in arg4) 

;bas9 e exponential (db ratio in arg4) 
4 ;scaie it '281 6 to convert it to fixed point 



move.wargl ,2(a2) 
bp I DCFtnLoop 
move.w j»32767.2(a2) 
Store them in the paramrec 



;convGrt sxtended to integer 
; store the limit 



DCFtnLoop: 




lea 


4(a4).a4 


lea 


4(a2).a2 


lea 


2(a3).a3 


subq.b #1 ,d6 




bne 


DCLoop 


movem.l 


(sp)-t-.a0-a6/d0-d7 


rts 





go to next theta/phi pair, 
go to next gain/limit pair 
go to next He and Hr 



Name: GIN - ^ ^ 

Function: This routine returns the input gain as determined by trie 
input attenuation control button, either +0 (on), or +18 (off). 

input: None . .... 

Output: A word on the stack is filled with the result (the user pushes th.s) 
GIN: movem.l aO-a6/dO-d7,-(sp) 
• if input attenuation is on then return 0 otherwise 18 

cir.w -(sp) : fTiake room for result 

move. I lAControl.-(sp) 

_GetCtlValue 

tst.w (sp) + 

bne GinOn 

move.vtf#18,64(sp) 

bra GinDone 

GinOn 
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move.w»0,64(sp) 

GinDone 

movem.I {Sp) + .a0-a6/d0.d7 

rts 

; Name: GOUT 

; Function: This routine returns the output gain as determined by the 
; output attenuation control button, either -34 (on), or -9 (off). 
; Input: None 

; Output: A word on the stack is filled with the result (the user pushes this) 

GOUT: movem.I a0-a6/d0-d7.-{sp) 

; if output gain is on then return -34 othenwise -9 

clr.w -(sp) ; rnake room for result 

move.l OAControl.-(sp) 

_GetCtl Value 

tst.w (sp)+ 

bne GoutOn 

move.w#-9.64(sp) 

bra GoutDone 

GoutOn 

move.w#-34.64(sp) 
GoutDone 

movem.I . (sp)+.a0-a6/d0-d7 

rts 

; Name: GMAX 

; Function: This routine returns the maximum gain for the given channel. 
; Input: The channel number is passed on the stack as a word (0-3). 
; Output: The result is on the stack upon retum. 

: '-Note: You do not have to make room for the result on the stack. 
GMAX: 

movGm.l aO-a6/dO-d7,-(sp) 

move.w#60.d0 ; hold result in dO 

cir.w -(sp) 

bsr GIN 

add.w (sp)+,dO ; add GIN 

cIr.w -(sp) 

bsr Qotrr 

add.w (sp)+,dO ; add GOUT 

tea He.aO 

move.w64(sp),d1 ; got channel u 

asl.w #l.d1 ; *2 for words 

add.w (aO,d1.w),dO ; add He 

add.w 8(a0.d1.w),d0 ; add Hr 

move.wd0.64(sp) ; write the result over the parameter 

movem.I (sp)+,a0-a6/d0-d7 

rts 

Name: ValidGain 

Function: This routine clips the given gain (bar height) as needed for the 
given channel. 

Input: The channel number and gain passed on the stack as words. 
Output: The result is on top of the stack upon return. 
•—Note: You do not have to make room for the result on thn stack. 
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ValidGain: 

movem.l a0-a6/d0-d7.-(sp) 
move.w66(sp).d0 ; get the channel », 

move.w64(sp).d1 : get the undipped gain 

cmp.w #2.d1 ; IS it bigger than the minimum height? 

bge GainOKI 
move.w#2,d1 ; make it bigger 

bra VGDone 

GainOKI : 

move.wdO.-(sp) ; get GMAX 

bsr GMAX 

cmp.w (sp)+.d1 

ble VGDone 

move.w-2(sp),d1 ; make it GMAX 

VGDone: 

move.wdl .66(sp) 

movem.l (sp)-i-.a0-a6/d0-d7 

move. I (sp).2(sp) ; move return address 

tst.w (sp)+ • 9®^. ^^^^^ 

rts 

: Name: LMAX 

; Function: This routine returns the maximum limit for the given channel. 

; Input: The channel number is passed on the stack as a word (0-3). 

; Output: The result is on the stack upon return. 

; ^^^Note: You do not have to make room for. the result on the stack. 

LMAX: 

movem.l a0-a6/d0-d7.-{sp) 
cir.w -(sp) 
bsr GOUT 
move.w(sp)+,dO : add GOUT 

lea Hr.aO 
move.w64{sp),d1 ; get channel # 

asl.w #1,d1 ; ^2 for words 
add.w (a0,d1.w).d0 ; add Hr 

move.wd0.64(sp) ; write the result over the parameter 

movem.l {sp)-i-.a0-a6/d0-d7 

rts 

Name: ValidUmit 

Function: This routine dips the given limit (bar height) as needed for the 
given channel. 

Input: The channel number and gain passed on the stack as words. 
Output: The result is on top of the stack upon return. 
"""Note: You do not have to make room for the result on the stack. 
ValidLimit: 

movem.l a0-a6/d0-d7.-(sp) 
move.w66(sp).d0 ; get the channel # 

• move.w64(sp).d1 : get the undipped limit 

cmp.w #2.d1 ; IS it bigger than the minimum height? 

bge Li mi to K1 

move.w<>2,d1 ; make it bigger 

bra VLDone 
LimitOKI : 
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move.wdO,-(sp) ; get LMAX 

bsr LMAX 

cmp.w (sp)+,dl 

bio VLDone 

move.w-2(sp).dl : make it LMAX 

VLDone: 

move.wdl ,66(sp) 

movem.l (sp)+.a0-a6/d0-d7 

move. I (sp).2(sp) ; move return address 

tst.w (sp)+ ; get rid of extra word 

rts 



WDHAPS data declarations 





; align to long word boundary 


Wni-I AP^Ptr- 

VV WnMr Or U . 


DC.L 


0 


: WDHAPS WindowPtr 


AidControl: 


DC.L 


0 


; Hearing Aid On Control 


lAControl: 


DC L 


0 


; Input Attenuation Control 


Wl 1 il Wl • 




0 


; Output Attenuation 


riBiuwonirui. 


DC L 


0 


; Field Mike Control 




r^c L 


0 


; Probe Mike Control 


.align 2 


; align 


to word boundary 


ThetaO:DC.W 


50 






PhiO: DC.W 


70 






Thetal:DC.W 


50 






Phil: DC.W 


70 






Thota2:DC,W 


- 50 






Phi2: EX:.W 


70 






Theta3:DC.W 


50 






Phi3: DC.W 


70 






paramrec: 






;WDHA parameter record 




dew 


16384 


;channel 0 gain 




dew 


32767 


;channel 0 limit 




dew 


16384 


;channel 1 gain 




dew 


32767 


;chamnet 1 limit 




dew 


16384 


:chann6l 2 gain 




dew 


32767 


;channel 2 limit 




dew 


16384 


;channei 3 gain 




dew 


32767 


:channel 3 limit 




dew 


4224 


;gain/input select word 


He: 










dew 


-1 00 


;channel 0 




dew 


-95 


-.channel l 




dew 


-90 


;channel 2 




dew 


-84 


;channel 3 


; The He table must(!) follow the He table. 


Hr: 










dew 


121 


;channei 0 




dew 


117 


;channel 1 




dew 


127 


:channel 2 
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dew 1 20 ;channel 3 

WDHAPSBounds: : Bounding rect for window 

DC.W PSlnitY 

DC.W PSInitX 

DC.W PSInitY+PSGHeight+PSGInitY-s2-PSTxtSize+4 

DC,W PS Right 



WDHAPSGraph: 



; bounding rectangle for graph 
DC.W PSGInitY 
DC.W PSGInitX 
DC.W PSGInitY-i-PSGHeight 
DC.W PSGInitX+PSGWidth 



WDHAPSChart: 



; bounding rectangle for chart 
DC.W PSClnitY 
DC.W PSClnitX 
DC.W PSClnitY^PSGHeight 
DC.W PSCinitX+PSCWidth 



TRect: 

TPoint: 

WhichControl: 

ThetaPat: 
PhiPat: 

NumBuf: 

argl 

arg2 

arg3 

arg4 

argS 

iwoexl 4 

fp20dBe 



DC-L 
DC.L 

DC.L 

DC.L 



0 
0 

0 

0 



;For calculating various rectangles. 

;For calculating mouse change. 

; A control handle, for temporary storage. 



DCS SAA.S55.SAA,$55,SAA,S55.SAA,S55 
DCS S55.SAA,S55.$AA,S55.5AA,SS5.SAA 

DCB.B 64.0 ; Buffer for number conversion 



dcb.w 

dcb.w 

dcb.w 

dcb.w 

dcb.w 

dew 

dew 



-.integer buffer 

•.extended floating point buffer 
-.extended floating point buffer 
;extended floating point buffer 
;extended floating point buffer 
S400d.S8000.SOOOO,SOOOO.SOOOO 
S4002.S8af9.Sdb22.SdOe5.S6042 



8.0 
8.0 
8.0 
8.0 
8.0 



Clipped 



dew 
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WDHAPS.hdr 

This file must be included if your program uses the 
WOHA Parameter Settings window. 

XREF WDHAPSOpen 

XREF WDHAPSCIose 

XREF WDHAPSShow 

XREF WDHAPSHide 

XREF WDHAPSOraw 

XREF WDHAPSControl 

XREF WDHAPSIS 

XREF WDHAPSSetParam 
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: file WDHATC.Asm 

Include MacTraps.D 
Include ToolEqu.D 
Include SysEquX.D 
Include Quick£quX.D 
Include SANEMacs.txt 
include MDS2:WDHA.hdr 
Include MDS2:W0HAMac.txt 
Include MDS2:WDHASCSl.hdr 



WDHA TesVCalibrate Window Manager 

This package contains routines to manipulate the WDHA Test/Calibrate 
window, which allows you to do pure tone audiometry via the WDHA. 

The window contains text boxes which allow the user to change the 
parameters to the test procedure, as well as the control boxes (as m the 
parameter settings window) to determine the gain/select input word and 
the on/off status of the hearing aid; 



-External Definitlons- 



XDEF WDHATCCDpen 

XDEF WDHATCCtose 

XDEF WDHATCShow 

XDEF WDHATCHkde 

XDEF . WDH ATCOraw 

XDEF WDHATCControl 

XCEF WDHATCldle 

XDEF WOHATCKey 

XDEF WDHATCIS 

XDEF WDHATCDoTest 



Constant Definitions 



■ TC = The Test/Calibrate Window 

TCInltX ECU 30 ; initial X coord (global) of upper left corner 
TCInitY BDU 50 ; initial Y coord (global) of upper left corner 
TCRightEQU 448 
TCTxtSize ECU 12 



; TCCtI = The Control Buttons 
TCCtUnitX EOJ 258 
TCCtllnitY ECU 15 
TCCtiFHeight ECU 24 

; Text Edit Box Constants 

ToneBursts ECU 0 

RiseCount ECU 1 

OnCount ECU 2 

FallCount EOJ 3 

OffCount ECU 4 

Frequency ECU 5 

Attenuate ECU 6 
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TextBoxes 



EQU 



There are seven boxes 



D eel a ratio ns- 



; - Subroutine 

; Name: WDHATCOpen 

; Function: Call this routine to create and display the TC Window. 
; Input: None 
; Output: None 
WDHATCOpen: 

movem.I d0-d2/a0-a6.-{sp) ; save registers 

; Set up document window. 

FUNCTION NewWindow (wStorage: Ptr; boundsRect: Reel; 

title: Str255; visible: BOOLEAN; 
procID: INTEGER; behind: WindowPtr, 
goAwayFlag: BOOLEAN: 
refCon: Longint) : WindowPtn 

Space for function result 



#4.SP 
-(SP) 

WDHATCBounds 

•WDHA Test/Caiibrate' 

#255, -(SP) ^ 

#rDocProc.-(SP) 

#-1.-(SP) 

#-1.-(SP) 

.(SP) 



SUBQ 
CLR.L 
PEA 
PEA 
MOVES 
MOVE 
MOVE.L 
move.B 
CLR.L 

_New Window 
tea 

MOVEL 

MOVE.L 
; PROCEDURE SetPort 

_SetPort 
; Add the text boxes. 

bsr TCAddBoxes 
; Add the control buttons. 

bsr TCAddControis 
: Draw the content region 

bsr WDHATCDraw 

movem.I (sp)+,d0-d2/a0-a6 

RTS 



Storage for window (Heap) 
Window position 
Window title 
Make window visible 
Standard document window 
Make it the front window 
Window has goAway button 
Window refCon 
Create and draw window 



WDHATCPtr,a4 
{SP)+,{a4) 
(a4)..(SP) 
(gp: GrafPort) 

; Make it the current port 



Save handle for later 
Make sure the new window is the port 



Restore registers 



; Name: WDHATCCIose 

; Function: Call this routine to destroy the TC Window and remove it from 

: the screen. 

; Input: None 

; Output: None 

WDHATCCIose: 

movem.I dO-d7/aO-a6,-(sp) ; save registers 

move.l WDHATCPtr..(sp) 

_KillControls 
; Dispose Window 

move.l WDHATCPtr,.(sp) 

_DisposWindow 

movem.I (sp) + ,dO-d7/aO-a6 ; restore registers 

rts 
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f.:c™r™re .^e. TC win.o» v,s«= and .,=mn.os,. 

; Input; None 
; Output: None 

movem.l d0-d7/a0.a6.-(sp) ; save registers 

; Bring it to the front 

move.l WOHATCPtr.-(sp) 
_BnngToFront 

; Show Window 

move.l WDHATCPtr.-(sp) 

^ShowWindow 

move.l WDHATCPtr.-(sp) 

SelectWindow . ^ 

movem.l (sp)^.d0-d7/a0.a6 : restore registers 

rts 

\7ZZ^''^s''TuL makes the TC window invisible, removing it from the 
; screen (but not destroying it). 
; Input: None 
• Output: None 

; Hide Window 

move.l WDHATCPtr.-(sp) 

HideWtndow ^ ^:^»«.^« 

movem.l (sp}.,d0.d7/a0.a6 : restore registers 

rts 

; Name: WDHATCDraw 

; Function: This routine draws the TC windows contents. 
; Input: None 
: Output: None 

lea WDHATCPtr,a4 ; Pointer on stack 

MOVE.L{a4),.{SP) 
•PROCEDURE SatPort (gp: GrafPort) 

^ ^^^ SBiPQTX * cun-ent port 

' Draw the text buttons. 

bsr TCDrawBoxes 
• Draw the control buttons. 

move.l WDHATCPtr..(sp) ; the window ptr 
DrawControls . ^ 

movem.l {sp)^.d0.d7/a0.a6 ; restore registers 

rts 

Name: TCAddControls 

Function: This routine adds the TC window's controls. 
Input: None 
, Output: None 
TCAddControls: 

movem.l d0-d7/a0.a6,-(sp) : save registors 
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Set up the controls bounding rsctangle. 
tea TRect.a4 

move.w#TCCtllnilY-K0*TCCtlFHeight.(a4) : store y coord 
move.w«TCCtllnitX.2(a4) ; store x coord 

move.w#TCCtl!nitY+0-TCCtlFHeight+20,4{a4) ; store y coord 

move.w#TCRight,6(a4) ; store x coord 

Push parameters for NewControl 

dr.! -(sp) ; NewControl returns a handle 

move.l WDHATCPtr.-(sp) : the window ptr 

pea TRect ; the rectangle bounding the control 

pea 'Hearing Aid On' ; title 

move.b #TRUE,-{sp) ; visible 

move.w#0.-{sp) : value 

move.w#0.-(sp) : min 

move.w#1 ,-(sp) ; rnax 

move.w#1 ,-(sp) : check box proc id 

move.l #0.-(sp) : refcon not used 

; Call NewControl 

_NewControl 

lea AidControl«a*3 

move.l (sp)+.(a3) ; store the result 

; Set up the controls bounding rectangle, 
lea TRect. a4 

move.w#TCCtllnitY+TTCCtlFHeight.(a4) ; store y coord 
move.w#TCCtilnitX,2(a4) ; store x coord 

move.w#TCCtllnitY^-1*TCCtlFHeight+20,4(a4) ; store y coord 

move.w#TCRight6(a4) ; store x coord 

; Push parameters for NewControl 

cir.i -(sp) ; NewControl returns a handle 

move.l WDHATCPtr,-(sp) ; the window ptr 

pea TRect ; the rectangle bounding the control 

pea Mnput Attenuation* ; title 

move.b #TRUE.-(sp) : visible 

move,w#0.-{sp) ; value 

move.w#0.-(sp) ; min 

move,w#l ,-(sp) ; max 

move,w#1 .-{sp) : check box proc id 

move.l #0.-(sp) ; refcon not used 

: Call NewControl 

^NewControl 

lea IAControl.a3 

move.l (sp) + .{a3) : store the result 

: Set up the controls bounding rectangle, 
lea TRect,a4 

move.w#TCCtllnitY+2"TCCtIFHeight,(a4) ; store y coord 
move.w#TCCtllnitX.2(a4) ; store x coord 

move.w#TCCt!lnitY+2*TCCtiFHeight+20.4(a4) ; store y coord 

move.w#TCRight.6(a4) ; store x coord 

; Push parameters for NewControl 

cir.l -{sp) ; NewControl returns a handle 

move.l WDHATCPtr,-{sp) ; the window ptr 

pea TRect ; the rectangle bounding the control 

pea 'Output Attenuation* ; title 

move.b «TRU£.-{sp) ; visible 
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store the result 



move.w#0.-(sp) : value 

move.w#0.-(sp) : f^im 

move.w#i.-(sp) : 
move.w#l.-{sp) ; check box proc id 

move.l #0.-(sp) : refcon not used 

Call NewControl 

_NewControl 

lea OAControi.a3 
move.l (sp)+.{a3) 
Set up the controls bounding rectangle, 
lea TRect,a4 
move,w#TCCtnnitY+3*TCCtlFHeight.(a4) 

move.w#TCCtllnitX,2(a4) ; store x coord 
move.w#TCCtllnitY+3-TCCtlFHeight4.20.4(a4) 
move.w#TCRight,6{a4) : store x coord 

; Push parameters for NewControl u^^^i^ 
J ,(sp) : NewControl returns a handle 

move.l WDHATCPtr.-{sp) : the window ptr 



store y coord 



store y coord 



the rectangle bounding the control 
title 



visible 



pea TRect 
pea 'Field Mike 

move.b #TRUE,-(sp) 
move.w#1 ,-(sp) 
move.w#0.-(sp) 
move.w#i .-(sp) 
move.w#2.-(sp) 
move.l #0,-(sp) 
Call NewControl 

^NeweSmro! 

lea FieldControl,a3 
move.l (sp)+.(a3) 
; Set up the controls bounding rectangle, 
iea TRect,a4 
move.w#TCCtllnitY+4*TCCtlFHeight,(a4) 

move.w#TCClllnitX,2(a4) ; store x coord 
move.w#TCCtnnitY4.4'TCCtlFHeight+20.4(a4) 
move.w#TCRight,6{a4) ; store x coord 

• Push parameters for NewControl 

^Ij. I .^sp) ; NewControl returns a 

move.! WOHATCPtr,-(sp) ; the window ptr 



make Field mike on as the default 
min 
nriax 

radio button proc id 
refcon not used 



store the result 



store y coord 



store y coord 



handle 



pea TRect 
pea 'Probe Mike' 

move.b #TRUE,-(sp) : visible 

move.w#0.-(sp) • 
move.w#0.-(sp) : 
move.w#1,-(sp) ; 
move.w#2,-(sp) - 
move.l #0.-(sp) : 
Call NewControl 

_NewControl 

lea ProbeControl,a3 
move.l {sp)^-.(a3) 
Set up the controls bounding rectangle, 
lea TRect,a4 
move w#TCCtllnitY+5-TCCtlFHeight.(a4) 



the rectangle bounding the control 
title 



value 
min 
max 

radio button proc id 
refcon not used 



store the result 



store y coord 
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move.w#TCCtIlnitX,2(a4) ; store x coord 

move.w#TCCtilnitY+5-TCCtlFHeight+24.4(a4) ; store y coord 

move.w#TCCtllnitX+40.6(a4) ; store x coord 

Push parameters for NewControl 

cir.l -{sp) 

move. I WDHATCPtr.-(sp) 

pea TRoct ; 

pea 'Start* ; title 

move.b »TRUE.-{sp) ; visible 

move.w#0,-(sp) 

move.w#0,-(sp) 

move.w#0.-{sp) 

move.w#0.-(sp) 

move.! «0.-(sp) 
Call NewControl 

_NewControl 

lea StartControl.a3 
move.! (sp)+,(a3) 
movem.l (sp)+.dO-d7/aQ-a6 
rts 



; NewControl returns a handle 
the window ptr 

; the rectangle bounding the control 



value 

min 

max 

simple button proc id 
refcon not used 



store the result 



TCAddBoxes: 

movem.l d0-d7/a0-a6.-(sp) 
lea TextHandles.aS 
lea TextRects,a4 
move.w#ToneBursts.d4 

TCABLoop: 

cmp.w #TextBoxes.d4 
beq TCABDone 

; TENew 

: Get Destination Rect in TRect 

lea TRect,a2 

moveJ {a4),(a2) 

move.l 4(a4).4(a2) 
; Make it a little smaller 

pea TRect 

move.w#l ,-(sp) 

move.w#1 ,-{sp) 

_lnsetRect 
: Cali TENew 

cir.l 

psea 

pea 

_TENew 
move.l (sp)- 
lea 

add.w # 1 .d4 
bra 

TCABDone: 
lea 

; Default Tone Burst Is 
pea 
add.! 



-(sp) 

TRect 

TRect 

.(a3) + 
8{a4),a4 

TCABLoop 

TextHandles,a4 
3 

•3* 

«T.{sp) 



make room for handle result 
dest reel 
view rect 



move.l #1 ,-(sp) 



; incorporate the text 
move past the length 
irs 1 character long 
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move.l (a4)+,-(sp) 
^TElnsert 
Default Rise Time is 309 

pea '309* 
add.! #1.(sp) 
move.l #3.-{sp) 
move.l {a4)^.-(sp) 
_TElnsert 

• Default Signal On is 2455 

pea -2455' 
add.l #l,(sp) 
move.l #4,.(sp) 
move.l (a4)4.,-(sp) 
_TEInsert 

• Default Fail Time Is 309 

pea •309* 
add.l #1,(sp) 
move.! #3,-(sp) 
move.l (a4)-i..-{sp) 
_TEinsert 
; Default Signal Off is 3069 

pea '3069' 
add.l #l,(sp) 

move.! #4,-(sp) 

move.l (a4)-i-,-(sp) 

^TElnsert 
; ©efauirFrequeney Is 2000. 

pea '2000* 

add.l #1.(sp) 

move.l #4,-{sp) 

move,! (a4)->..-(sp) 

_TElnsert 
- Default Attenuation is 20 

pea '20* 

add.l #1,{sp) 

move.l #2.-{sp) 

move.l {a4)+,-(sp) 
TElnsert 

movem.l (sp) + .d0.d7/aQ.a6 

rts 



; incorporate the text 
move past the length 
irs 3 characters long 



; incorporate the text 
move past the length 
it's 4 characters long 



incorporate the text 
move past the length 
It's 3 characters long 



; incorporate the text 
move past the length 
IVs 4 characters long 



incorporate the text 
move past the length 
It's 4 characters long 



; incorporate the text 
move past the length 
It's 2 characters long 



; f:™ioT™in, car,. ,r .he ao... .ex. box. .. shcu., « 

: called each time through your mam event loop. 
; input: None 
; Output: None 
WDHATCIdle: 

movem.l a0-a6/d0-d7.-{sp) 
• lea TextHandles.a4 

move.wWActive,d4 ; which one is active? 

bmt TCINoneActive ; -1 means none 

asl.w #2.d4 : '4 for long offset 

move.l (a4,d4.w),-(sp) 
TEldle 
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TCINoneActive: 
movemJ 
Ms 



(sp)^-.aO-a6/dO-d7 



: Name:WDHATCKey 

; Function: Call WDHATCKey when the TC window is active and a keypress 
; event is active. 

; Input: The char (from the events message field) as a word. 

; Output: None 

WDHATCKey: 

movem.i a0-a6/d0-d7,-(sp) 

lea TextH andtes. a4 

move. wW Active, d4 

bmi TCKNoneActive 

asl.w #2.d4 

move.w64(sp),-(sp) 

move.! (a4.d4.w),-(sp) 

-TEKey 
TCKNoneActive: 

movem.i {sp)-t-.a0-a6/d0-d7 
; remove parameter from stacJc 

move. I (sp),2{sp) ; move retum address 

cir.w (sp)+ ; remove extra space 

rts 



which one is active? 

; -1 means none 
•4 for long offset 
push the char 



; Name: WDHATCIS 

: Function: This routine returns a Boolean telling whether or not 
; the given window pointer is the TC window's pointer. 
: Input: A window pointer (passed on the stack) 

: Output: a word. TRUE or FALSE (defined in WDHA.hdr) returned on the stack 
: ••Note: You do not have to push a word for the result of this routine, 
WDHATCIS: 

movem.i a4/d4,-(sp) 

move.l 8(sp).a4 

move. I 12(sp).d4 

cmp.l WDHATCPtrd4 

beq IS10 

move.w #FALSE.1 4(sp) 

bra IS20 



IS10: 



iS20: 



move.w 

move.l 
movem.i 
tst.w 
rts 



Was it 



save 



save registers 
get retum address in a4 
get WindowPtr in d4 
our window? 
: U Is 

result 



#TRUEj4(sp) 

a4,l0(sp) 

(sp)+.a4/d4 

(sp)+ 



; put return address bacK 
; restore registers 
get rid of extra two bytes 
: return 



: Name: WDHATCControl 

; Function: This routine should be called whenever a mousedown event occurs 

; within the contents of the TC Window. It handles the hilighting of the 

; proper control buttons, and sends the proper records to the WDHA. 

; Input: The mouse location (on the stack), from the event's where field. 

; Output: None 

WDHATCControl: 
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movem.l dO-d7/aO-a6.-(sp) 
move. I WDHATCPtr.-(sp) 
: PROCEDURE SetPort (gp: GratPort) 
^SetPort 

port 

pea 64{sp) 

_GlobalToLocal 
; Was it in a control button? 
ButtonCheck: 
; call FindControi 

cir.w -(sp) 

move.l 66(sp).-(sp) 

move.l WDHATCPtr.-(sp) 

pea WhichControl 

_FindControl 

Tst.w (spK 

lea WhichControl. a4 

tst.l {a4) 
beq TBCheck 
; if it was in a control, call TrackControl 
clr.w -(sp) 

move. I WhichControl, -(sp) 

move.l 70{sp).-(sp) 

movQ.I #0/-(sp) 

_TrackControl 

tst.w (sp)-t- 

beq SstoChan 
; Was it the Start Button? 

move.l StartControUd4 

lea WhichControl, a4 

cmp.l (a4),d4 

bne InvControl 

bsr WDHATCDoTest 

bra hJoChan 
; invert the control value 
InvControl: 

cir.w -(sp) 

move.l WhichControl, -(sp) 

_GetCltValue 

move.w(sp)+.d3 

not.w d3 

and.w #1.d3 

move.l WhichControl, -(sp) 

move.wd3.-(sp) 

_S6tCtlValue 
; Was it the Field button? 

move.l FieldControi,d4 

lea WhichControl, a4 

cmp.l (a4).d4 

bne NotFieid 
; Otherwise invert the Probe mike 
cir.w -(sp) 

move.! ProbeControl.-(sp) 



WDHATCPtr on stack 

: Make sure iVs the current 



; push address of point 
convert it to the window's coords 



returns a long 
push point in local coords 
WDHATCPtr on stack 
; which one? 



pop result 



; Was it in any of them? 
; if not try the text boxes 



; returns a word 

; WhichControl now has the handle 

; starting point 

; no action proc 

; did they change the button? 
; if not then leave 



; if not then forget it 
othenwise do the test 
• and leave 



GetCtlValue returns a word 

; now value is in d3 
; invert the status 
; sat button 



; if not then forget it 
GetCtlValue retums a word 
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_GetClIValue 

move.w(sp)-t-.d3 

not.w d3 

and.w # 1 ,d3 

move.l ProbeControi.-{sp) 

move.wd3.-{sp) 

_SetCtlValue 

bra NoChan 
; Was it the Probe button? 
NotFieid; 

move.! ProbeControl,d4 
lea WhichControl.a4 
cmpJ {a4),d4 
bne NoChan 
; Otherwise invert the Field mike 
clr.w -(sp) 

move.l FieldControI.-(sp) 
_GetCtlValue 
move.w(sp)-»-,d3 
not.w d3 
and.w #1,d3 
move.l FieldControl,-(sp) 
move.wd3,-(sp) 
_SetCtlValue 
bra NoChan 
TBCheck: 

lea TextRects,a4 
move.w#ToneBursts,d4 

TBCLoop: 

cmp.w #TextBoxes.d4 

beq NoCian 

clr.w -(sp) 

move.l 66(sp).-(sp) 

move,l a4.-(sp) 

_PtlnRect 

tst.w (sp)+ 

bne TBFound 

lea 8{a4),a4 

add.w #l,d4 

bra TBCLoop 
TBFound: 

; Deactivate old active box 

lea TextHandles, a3 

lea WActive.a4 
move.w(a4),d3 
bmi TBNoneActive 
asl.w #2,d3 
move.l {a3.d3,w).-(sp) 
. _TEDeactivate 

TBNoneActive 

move.wd4,(a4) 
asl.w #2.d4 
move.! (a3,d4.w) .-(sp) 
TEActivate 



; now value is in d3 
invert the status 

; turn off Probe button 



; if not then forget it 
; GetCtlValue returns a word 

; now value is in d3 
; invert the status 

; turn off Probe button 



make room for result, 
push the mouse point 

: the text boxes rectangle. 

: Is the point inside. 
; If so we've found the right one. 

; Otherwise move to next rect. 
; increment the counter 



; Get old active one 
; • 4 for long words 



; store new active one 
; counter * 4 since long words. 
; push the TEHandle 



wo 94/23548 



PCT/US94/040Q4 



96 



move.l 64(sp)..(sp) : P^sh the point 

cir w '(SO) ; extend 

alove.1 (a3'd4:w).-(sp) ; push the TEHand.e 

_TEClick 
NoChan: 

PenNormal 
movem.l (sp)+,dO-d7/aO-a6 
move.l (sp)+.{sp) ; get rid of param 

rts 

• Name: TCDrawBoxes ^ ._ -r/^ • 

• Function: TCDrawBoxes draws the text box portion of the TC window. 
\ including the headings and the text boxes themselves. 

; Input: None 
; Output: None 
TCDrawBoxes: 

movem.l dO-d7/aO-a6.-{sp) 

p^^ ERect ; erase the input portion of the window 

_feraseRect 

lea TextRect5.a4 
iea TextHandIes,a3 

move.w#TCCtUnitY^-16.d3 ; initial y coord 

DispString #10.d3,Tone burst count? 

pea 0(a4) 

^FrameRect 

pea ERoct 

move.l 0(a3),-{sp) 

jfiupclate 

add.w #20. d3 ; move down 

DispString #10,d3.Rise time sample count? 
pea 8(a4) 
^FrameRect 
^ ERect 
move.l 4(a3).-(sp) 
TEUpdate 

add.w #20. d3 ; move down 

DispString #10,d3»SignaJ on sample count? 

pea 16(a4) 

_FrameRect 

pea ERect 

move.l 8{a3).-(sp) 

_TEUpdate 

add.w #20. d3 ; move down 

DispString #10.d3.Fall time sample count? 

pea 24(a4) 

_FrameRect 

^a ERect 

move.l I2(a3).-{sp) 

_TEUpdaie 

add.w #20.d3 ; move down 

DispString #10.d3.S.gnal off sample count? 

pea 32(a4) 

_FrameRect 

pea ERect 
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move.! 16(a3),-{sp) 
.TEUpdate 

add.w #20, d3 : rrove down 

DispString i»1 0.d3. Frequency? 

pea 40(a4) 

_FrameRect 

pea ERect 

move.l 20(a3).-{sp) 

_TEUpdate 

add.w #20.d3 ; move down 

DispString #lO,d3,Atten re max out (dB)? 

pea 48(a4) 

_FrameRact 

pea ERect 

move.l 24{a3).-(sp) 

_TEUpdate 

add.w #20, da ; move down 

DispValue #10,d3. Power » .PDecimal 

pea 

_DrawString 

lea KeyBuf.aO 
move.l PFract,dO 

move.w#0,-(SP) ;Select NumToString 

_Pack7 

pea KeyBuf 
^OrawString 

movem.l {sp)+,d0-d7/a0-a6 
rts 

; Name: WDHATCDoTest 

; Function: WDHATCDoTest fii!s the paramrec with the proper values 

; initiates the WDHA test by sending the paramrec out via the routine 

; wdhatost, 

; input: None 

; Output: None 

WDHATCDoTest 

movem.l dO-d7/aO-a6.-(sp) : save registers 

lea paramrec,a4 ; get the gain/input select word 

; generate the gain/input select word 

move-wl4{a4).d4 : get the gain input select word in dO 

JCIP^. ; set input attenuation bit 

clr.w -(sp) ; GetCtlValue returns a word 

move.l lAControl.-(sp) ; the handle 

_GetCtiValue 

tst.w (sp)-»- 

beq TCNolA 
TCDolA: 

bset.l #INPUT.d4 
- bra TCOA 
TCNolA: 

bclr.l #INPUT,d4 
jQQ^. : set output attenuation bit 

clr.w .(sp) : GetCtlValue returns a word 

move.l OAControI,-(sp) ; the handle 
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_GatCtiValue 
tst.w (sp)+ 



bsq 
TCDoOA: 

bset. 

bra 
TCNoOA: 

bc!r. 
TCField: 

clr.w 



TCNoOA 



#OUTPUT.d4 

TCFieid 

#OUTPUT,d4 



tst.w 
b®q 
TCOoField: 

bSQt.l 

bra 

TCNoFieid: 

bctrl 

TCProbe: 

clr.w 



(sp) 

move. I FieldControl,-{sp) 
GetCtiValue 
(sp)+ 

TCNoFiGid 



; set the field mike bit 
; GetCtlValu© returns a word 
; the handle 



#FlELD,d4 

TCProbe 

#FlELD.d4 



beq 
TCDoProba: 

bset.l 

bra 
TCNoProbe: ' 

bclr.l 



(sp) 

move. I ProbeControl,-(sp) 

„GetCtlValua 

tst.w (sp)-f- 

TCNoProbe 



; set the probe mike bit 
; GetCtiValue returns a word 
; the handle 



^PFlOBE,d4 

TCSandParanrts 

#PROBE,d4 



TCSendParams 

move.wd4,l 4(a4) 
lea 
bsr 
bsr 
lea 

move, 
pea 
pea 
fL2X 
move 
pea 
pea 
fL2X 
move 
pea 
pea 
fL2X 
pea 
pea 
fdivx 
pea 
pea 



store the modified gain/input select word. 



put MS in arg1 



paramrec^aO 
TCCvtBoxes 
wdhatest 
argi ,a4 

d6.(a4) 

. arg1 
arg2 

; convert MS to extended in arg2 
d7.(a4) ; put SMS in argi 

argi 
argd 

; convert SMS to extended in arg3 
#8388608, (a4) ; 2'^23 

arg1 
arg4 

; convert 2^*23 to extended in arg4 
arg4 
arg2 

; divide MS by 2*23 to move decimal point 
arg4 
arg3 



owcnnnin- .-wo aA^r^^Af^^i^ i 
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fdivx ; divide SMS by 2*23 to move decimal point 

pea two 

pea arg3 

fdivx ; SMS/2 

pea arg2 

pea arg2 

fmuix ; MS*2 

pea arg2 

pea arg3 

fsubx ; E in arg3 

lea argl.aO 

move. I #4342944, (aO) 

pea argi 

pea arg2 

fL2X ; get 1000000*1 0/Iog base e of 10 in arg2 

pea thousand 

pea arg2 

fdivx ; get three decimal places 

pea thousand 

pea arg2 

fdivx ; now six decimal places 

pea arg3 

flnx : take log base e of E 

pea arg2 

pea arg3 

fmulx : now Power = (10 • log base e of E)/{log base e of 10) in arg3 - 



pea 


arg3 


pea 


arg2 


fx2x 


; copy arg3 (Power) to arg2 


pea 


arg2 


ftintx 


; Truncate result 


pea 


arg2 


pea 


argS 


fsubx 


; Now integer part in arg2, fractional part in arg3 


pea 


thousand 


pea 


arg3 


fmulx 


; get three decimal places 


pea 


thousand 


pea 


arg3 


• fmulx 


; now six decimal places 


pea 


arg2 


pea 


argi 


fx2l 


; convert decimal part to long integer 


lea 


PDecimal.aO 


move.l 


argi .(aO) 


pea 


arg3 


pea 


argi 


fx2I 


; convert fractional part to long integer 


lea 


PFract.al 


move.l 


argl.(al) 


bpl 


PResult 


tst.l 


(aO) 


beq 


PResult 


neg.l 


(al) 
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; Print Result 
PResult: 

bsr WDHATCOraw 
: Now put the WD HA in either hearing aid state or idle state 

cir.w -(sp) ; GetCtlValue returns a word 

move.! AidControl.-(sp) ; the handle 

^GetCtlValue 

tst.w {sp)+ 

beq TCAidOff 

move.w#-1 ,dO *. go to hearing aid mode 

bra TCSetMode 
TCAidOff: 

move.w#-1 00,dO : QO to idle mode 

TCSetf\/lode: ^ 

jsr scsiwr :send mode code to WDHA 

movem.I (sp)+.d0-d7/a0-a6 : restore registers 

rts 

; Name: TCCvtBoxes 

• Function: TCCvtBoxes actually does the work of filling the paramrec by 

: converting the text of the text boxes to their appropriate values, and by 

• calculating the sine and cosine factors from the specified frequency. 
; Input: None 

; Output: None 
TCCvtBoxes: 

' movem.I d0-d7/a0-a6.-(sp) 

tea TextHandles,a4 

move.w#ToneBursts,d4 

TCCBLoop: 

cmp.w #TextBoxes.d4 
beq TCCSOone 
move.wd4»d5 

asLw #2,d5 ; '4 for longs 

move.l (a4.d5.w),a0 ; get the text handle 

HLock ' Lodi^ the handle 

move.l {a0).a2 ; Dereference the handle 

move.w60(a2),d6 ; get teLength 

lea NumBuf,a6 

move.b d6,(a6) : store the length of the string 

-(sp) make room for the result, 

move.l aO.-(sp) ; get the text 

.TEGetText 

move.l (sp)4..a3 : get it in a3 

move.l a3.a0 
l-H_Qgi^ ; lock the handle 

move.l (aO).aO ; Dereference the handle, move src in aO 

lea. NumBufT.al ; Destination is NumBufT 

move.wd6.d0 : BlockMove expects length in dO 

ext. I dO : expects a long 

_BiockMove 

lea NumBuf.aO 
move.w#1 .-(SP) 
Pack? ; SiringToNum puts result in dO 

iea offsets, a1 
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move.b (al ,d4.w).d1 ; get offset in paramrec of this entry 

ext.w d1 i make it a word. 

lea paramrec, aO ; get paramrec base address 

move.wdO.(aO,d1 .w) ; store the value. 

move. I a3,aO ; Unlock the text handle 

_HUnicck 

move. I {a4.d5.w).a0 ; Unlock the TEHandle 
_HUniock 

add.w #1 ,d4 ; go to next box. 

bra TCCBLoop 
TCCBDone: 

; Now compute the slope delta values which are 16384/samplG count 
lea paramrec. a4 

move.l #l6384.d0 



move.w2(a4),d1 ; 

beq RTSZero 

divu dl.dO 

move.wdO,4(a4) 

bra FTSDelta 

RTSZero: 

move.w#S7FFF,4(a4) 

FTSDelta: 

move.l #1 6384, dO 

move.w8{a4).dl ; 

beq FTSZero 

divu d1»dO 

move.wdO,10(a4) 

bra TCCalcTrig 

•FTSZero: 

move.w#S7FFF.1 0(a4) 

TCCaicTrig: 

; Now send the parameters to the WDHA 
move.wFreq.dO 
lea argl.al 
move.wdO.(a1 ) 
pea arg1 
pea arg3 
F12X 

: Compute burst amplitude 



first do the rise time slope delta 



now do the fall time slope delta 



; argS will hold fp frequency 
;convert from integer to extended fp 



move.w 

bpl 

clr.w 



Atten.dO 

AttenOK 

dO 



AttenOK: 



neg.w dO 
lea 

move.w 
pea argi 
pea arg4 
FI2X 

pea fp20d6e 
pea arg4 

fdivx ;db/fp20dbe (result in arg4) 

pea arg4 

fexpx ;base e exponential (db ratio in arg4) 



argi .aO 

dO.(aO) ; store Atten from max output (dB) m argi 

;dB gain 
;fpdB gain 

;convert from integer to extended fp 
;20 • log base 10 of e = 8.685889638 
;fpdB gain 
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paa 
fmulx 
pea 
pea 
fx2i 
lea 



twoexl 4 
arg4 

arg4 
argi 
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;scai8 it *2E14 to convert it to fixed point 



;convert extended to integer 
paramrec.a4 
move.wargi ,20(a4) ; store the burst factor 
; compute sine and cosine factors 
; first get 2'pi'f/fs in argS 



paa 


arg3 


;frequency 


pea 


argS 




fx2x 




;move arg3 to argS (frequency) 


pea 


two pi 


;2 pi 


pea 


argS 




fmulx 




;multiply 2 pi times f (result in argS) 


pea 


fp12277 


. ;sampling frequency is 12277 Hz 


pea 


argS 




fdivx 




;divide by fs (result in argS) 


get CCS 


factor 




pea 


argS 




paa 


cosreg 




fx2x 




;movQ argS to cosreg 


pea 


cosreg 




fcosx 




;take cosine of cosreg 


pea 


twoexl 5 


;2'^15 


pea 


cosreg 




fmulx 




;multiply by 2'^15 


pea 


cosreg 




pea 


argi 




fx2i 




;convert extended to integer 


lea 


paramrec.a4 




move.wargi J 6{a4) 


;store cosine factor 


do sine 






pea 


argS 




pea 


sinreg 




fx2x 




;move argS to sinreg 


pea 


sinreg 




fsinx 




;take sine of sinreg 


pea 


fp1p95 


;1.95 


pea 


sinreg 




fmulx 




;multiply by 1.95 


pea 


twoexl 4 


;2''14 


pea 


sinreg 




fmulx 




;multipiy by 2'^14 


pea 


sinreg 




pea 


arg2 




fx2i 




;converi extended to integer 


lea 


paramrec.a4 




move.warg2,1 8(a4) 


;push sine factor 


movem.l {sp)+,dO-d7/aO-a€ 



rts 



-WDHATC data declarations- 
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WDHATCPtr: 


DC.L 


0 


; WDHATC WindowPtr 


AidControl: 


DC.L 


0 


; Hearing Aid On Control 


lAControl: 


DC.L 


0 


; Input Attenuation Control 


OAControl: 


DC.L 


0 


; Output Attenuation 


FieldControl: 


DC.L 


0 


; Field Mike Control 


ProbeControi: 


DC.L 


0 


; Probe Mike Control 


StartControl: 


DCi- 


0 


; Start Button Control 



; Which Text Edit Record is active? 
WActive: dew -1 



• 1 means none are active 



TextHandies: 



paramrec: 



deb. I TextBoxes.O 



;WDHA parameter record for test/calibrate 
<jc.w 1 ;tone burst count 

cic.w 0 ;rise time sample count 

(jc.w 0 ;rise time slope delta 

dew 16384 ;signal on sample count 
(jc.w 0 ;fal! time sample count 

dew 0 ;fall time slope delta 

dew 16384 ;signal off sample count 
dew 4224 ;gain/input select word 
dew 0 ;cosinG factor 

<jc.w 0 ;sinG factor 

dew 32000 ;burst amplitude 

dew 512 ;probo sample count (currently a constant) 

dew 32 ;probe sample multiplier (currently a constant) 

The following are not really a part of the paramrec. but cun-entty must 

follow it for the routine TCCvtBoxes to work properly 



Freq: 
Atten 



dew 



dew 
0 



; Power 

PDecimal: 

PFractidel 



del 
0 



offsets: 



deb 
deb 
deb 
deb 
deb 
deb 
deb 



0 
2 
6 
8 

12 
26 
28 



:tone burst count is first entry 

;nse is second 

;on count is fourth 

;fall count is next 

;off count is seventh 

;frequency is 14th (not really a parameter) 

;atten is 15th (not really a parameter) 



TextRects: 



dew TCCtnnitY+ToneBurst5*20 
dew TCCt!lnitX-88 
dew TCCtllnitY+ToneBursts'20+20 
dew TCCtllnitX-20 

dew TCCtilnitY-».RiseCounf20 
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dew TCCtllnitX-88 

dew TCCtnnitY+RiseCounr20+20 

dew TCCUInitX-20 

dew TCCtllnitY+OnCounrZO 
dew TCCtMnitX-88 
dew TCCllInitY*OnCounr20^-20 
dew TCCtIlnitX-20 

dew TCCtllnitY+FaiICount*'20 

dew TCCtllnitX-88 

dew TCCtllnitY+FalICounr20^20 

dew TCCtIInitX-20 

dew TCCtllnitY+OffCounraO 

dew TCCtllnitX-Sa 

dew TCCtIlnitY+OffCounr20+20 

dew TCCtllnitX-20 

dew TCCtlInitY^Fraquency''20 

dew TCCtllnitX-88 

dew TCCtllnitY>Frequency''20+20 

dew TCCtllnitX-20 

dew TCCtilnitY-s-Attenuate'20 
dew TCCtMnitX-88 
dew TCCtllnitY+Attenuate"20-!-20 
dew TCCtnnitX-20 



WDHATCBounds: ; Bounding rect for window 

DC.W TCInitY 

DC.W TClnitX 

DC.W TCInitY-h200 

DC.W TCRigiit 

£fHec:: ; Bounding rectangle for part to erase 

DC.W TCCtnnitY-8 

DC.W 0 

DC.W TCClIlnltY+7-TCCtlFHeight 

DC.W TCCtllnitX 



TRect: 



DC.L 0 

DC.L 0 ;For calculating various rectangles. 



TPoint: DC.L 0 ;For calculating mouse change. 

WhichControl: DC.L 0 ; A control handle, for temporary storage. 

NumBuf: DC^B 0 : Buffer for number conversion (length here) 

NumBufT: DCaB 79.0 : Text here 



KeyBuf: 



DCB.B 80,0 
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argi dcb.w 8.0 ;integer buffer 

arg2 dcb.w 8.0 ;extendad floating point buffer 

arg3 dcb.w 8.0 ;extended floating point buffer 

arg4 dcb.w 8,0 ;extended floating point buffer 

argS dcb.w 8.0 ;extended floating point buffer 

cosreg dcb.w 8.0 ;room for cosine factor 

sinreg dcb.w 8,0 ;room for sine factor 

xacc dcb.w 8,0 :extended accumulator 

txreg dcb.w 8,0 ;temporary extended register 

pi dew $4000,$c90e.$5604,$1 893.$74bc 

twopi dew $4001 . Sc90e, $5604. $1 893. $74bc 

zero dew $0000. $0000. $0000. $0000. $0000 

one dew $3fff,$8000.$0000. $0000. $0000 

fp1p95 dew $3fff.$f999, $9999. $9999. $999a 

two dew $4000. $8000. $0000. $0000. $0000 

twoexl4 dew $400d. $8000. $0000. $0000.$0000 

twoexl 5 dew $400e. $8000. $0000. $0000.$0000 

twoexl 6 dew $400f,$8000. $0000. $0000. $0000 

ten dew $4002. $a000. $0000, $0000. $0000 

hundred dew $4005. $c800.SOOOO. $0000. $0000 

thousand dew $4008. $fa00. $0000, 50000. $0000 

fpl 2500 dew $400c,$c350.$0000,$0000.$0000 

fp12277 dew $400c,$bfd4.$0000,$0000.$0000 

fp20dBe dew $4002,$aaf9.5db22.$d0e5.$6042 



RNSCXDCID: <WO 9423548A1 I > 
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WDHATC.hdr 

This file must be included if your program uses the 
WDHA Test/Calibrate window. 

XREF WDHATCX)pen 

XREF . WDHATCCIose 

XFEF WDHATCShow 

XREF WDHATCHide 

XREF WDHATCDraw 

XREF WDHATCControl 

XREF WDHATCIdle 

XREF WDHATCKey 

XREF WDHATCIS 

XREF WDHATCCtoTest 
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; file WDGHAFCAsm 

This file contains two routines which read text files containing 

• numeric expressions, and download the numbers to the digital hearing 

• aid- The routine WDHAFCSet is used in the Aid! 3 program to download 

- filter tap coefficients to the hearing aid. The routine WDHASetReParams 
i is used to download parameters for the SSI 5 spectral shaping program. 
' The text files accessed by these routines must contain integer numbers 

• seperated by any chracter which is honnumeric and not (generally spaces, 
tabs, or carriage returns). The text files accessed by WDHAFCSet can also 

] contain simple numeric expressions of the form A/B. where A and B are 

; integers. 

Include MacTraps.D 

Include ToolEquX,D 

Include SysEquX.D 

Include QuickEquX.D 

Include FSEqu.D 

Include MDS2:WDHADisk.hdr 

Include MDS2:WDHASCSI.hdr 

XDEF WDHAFCSet 

XDEF WOHASetFileParams 

: Constants for division 

NoDiv EDJ 0 ; Haven't seen a r 

ReariOne ECU 1 . ; Read first operand 

DoDiv ECU 2 ; Read second operand, so don't division. 



Name: WDHAFCSet 

Function: This routine uses the SFGetFUe dialog to get the name of the file 

from the user, then opens the file, converts ifs contents from text form 
to binary integer form, then downloads it to the hearing aid. 

Input: None 

Output: None 
WDHAFCSet: 

movem.I d0-d7/a0-a6.-(sp) 

; Do SFGetFile 

move. I #500480048. -(sp) ; where 
pea V/hich Filler Coefficient File?' 



move. I #0.-(sp) 
move.w#-1 ,-(sp) 
pea FTypes 
move. I i*0,-(sp) 
pea Reply 
move.w#2,-(sp) 
_Pack3 
Did they choose a file? 

lea good.aS 
tst.w {a3) 
• beq DoneFCSet 
; Yes, open it 

lea fName,a1 
bsr DtskOpen 

tst.w d1 ; test ioResult 

bne DoneFCSet 



prompt 

fileFilter procedure 
display ail types of files 
typeList 
; dIgHook 
; SFReply 
: trap to SFGetFile 



; file name pointer 
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; Now d2 has ioRefNum 

move.w#1.d1 ; read one sector 

laa myBuffer.al 

bsr DiskRead 

bsr DiskClose 
; Now convert text buffer to words 

move.w#64,d3 ; d3 will be a counter 

move.wi^NoDiv.dS : dS tells if we should divide or not 

laa myBuffer.al 

iea numRec.a2 

FCLoop: 

lea numBuffer.aO 
: Convert from text buffer to a string 

cir.w d4 ; count length of string 

FCSLoop: 

move.b (a1)+.d5 

cmp.b #'/\d5 

bne FCSNotDiv 

move, w #ReadOne.d6 

bra FCSDona 
FCSNotDiv 

cmp.b #'-\d5 

beq FCSGo 

cmp.b #-0-,d5 

bio FCSDona 

cmp.b r9\dS 

bhi FCSDona 

FCSGo: 

add.w #1.d4 

move.b d5,{a0)-i- 

bra FCSLoop 

FCSDone: 

lea numString.aO 

move.b d4,(aO) 

move.w#1 .-(SP) _ , ^ ^« 

Pack? ;StringToNum - cvt numStnng to word m dO 

cmp.w #NoDiv.d6 ; Are we dividing? 
beq FCSDonea 

cmp.w #ReadOne.d6 ; Have we read one? 
- bne FCSDonel 

add.w #1.d3 : This one won't really count 

move.w#D'oDiv.d6 : Next time weMI divide 
bra FCSDone2 

FCSDonel: , ^ ^ 

cmp.w #DoDiv.d6 : Should be dividing if we reach here 

bne FCSDone2 

move.wdO,d1 : get the divisor in dl ^ r . «^ 

iea -2(a2).a2 : back up the pointer to the first operand 

move.w(a2).d0 ; get the first operand 

3 3^^ 1 do ; extend dest of divs to long 

divs dl,dO 

move.w#NoDiv,d6 ; finished this divide 
bra FCSDone2 
FCSDone2: 
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move.wcl0.{a2)-t" ;store result 

sub.w ^1.d3 

bne FCLoop 
; Send the coefficients, to the WDHA 

lea numRec.aO 

bsr SetCoefficients 
DoneFCSet: 

movem.l (sp)+.d0-d7/a0-a6 

rts 

Name: WDHASetFiieParams 

Function: This routine uses the WOHAGetFile dialog to get the file name 

from the user, then opens the file, converts it's contents from text form 
to binary integer form, then downloads it to the hearing aid. 
Input: None 
Output: None 
WDHASetFiieParams: 

movem.l d0-d7/a0-a6.-(sp) 
; Do SFGetFile 

move.l #500480048, -(sp) " ; where 
pea 'Which Set Params File?' 
move.l #0.-(sp) 



move.w#-1 .-(sp) 
pea FTypes 
move.l #0,-(sp) 
pea Reply 
move.w#2,-(sp) 
_Pack3 
; Did they choose a file? 

lea gaod,a3 
tst.w (a3) 

beq DoneFileSet 
; Yes, open it. 

lea fNamo.al ; file name pointer 

bsr DiskOpen 

tst.w d1 ; test ioResult 

bne OoneFileSet 
; Now d2 has ioRefNum 

move.w#3,d1 ; read three sectors 
lea myBuffer.al 
bsr DiskRead 
bsr DiskClose 
; Now convert text buffer to words 

move.w#320.d3 ; d3 will be a counter 

lea myBuffer.al 
lea numRec.a2 
FileOuterLoop: 

lea numBuffer.aO 
; Convert from text buffer to a string 

cir.w d4 ; count length of string 

FiieLoop: 

move.b (a1 )-*-.d5 

cmp.b #'-',d5 

beq FileGo 



prompt 

fileFilter procedure 
display ail types of files 
type List 
digHook 
SFReply 

trap to SFGetFile 



RNKr)CX;iD: <WO 94?354flA1 I > 
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cmp.b #*0\d5 

bio FileDone 

cmp.b r9\6S 

bhi FileDone 

. FiieGo: 

add.w #1,d4 
move.b d5.(aO)+ 
bra FileLoop 
FileDone: 

lea numString.aO 
move.b d4,(aO) 

move.w#1,-(SP) . 
jp^ckl :StringToNum - cvt numString to word in dO 

move.wd0,(a2)+ ;store result 

sub.w #1.d3 

bne FiieOuterLoop 
: Send the coefficients to the WDHA 
lea numRec.aO 
bsr SetFileParams 
DoneFileSet: 

movem.l 
rts 



(sp)+,d0-d7/a0-a6 



Reply: 








good: dew 


0 






copy; dew 


0 






fType: dew 


0 






\/fiimum 


dew 


0 




version: 


dew 


0 




fName: dcb.b 


64,0 






FTypes: 


del 


TEXT' 




numString: 


deb 




0 


numBufter: 


dcb.b 


63.0 


; text 


numRec: 




dcb.w 


320.0 


myBuffer: 




dcb.b 


1536,0 



length 



RNsnonio. <wo ?>^54aAi i > 
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; WDHAFC.hdr 

; This file must be included if your program uses the 
; Set Filter Coefficients function. 

XREF WDHAFCSet 

XREF VVDHASetFileParams 
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; WDHASCSl.Asm 

This file contains routines for sending records back 
\ between the Mac and the WDHA via the SCSI bus intertace. 

Include MacTraps.D 
Include SysEquX,D 
Include ToolEquX.D 
Include MDS2:WDHA.hdr 



XDEF SetParam 

XDEF SetCoefficients 

XDEF SetFiieParams 

XDEF wdhatest 

XDEF SCSIInterrogata 



XDEF SCSIWr 
XDEF SCSIRd 
XDEF SCSlBTst 



;scsi bus bit assignments 



abs 


aqu 


1 


dbs 


equ 


0 


ack 


equ 


0 


dck 


equ 


16 


atn 


equ 


0 


dtn 


equ 


2 



;assert data bus 
;deassart data bus 
;assert acknowledge line 
;de assert acknowledge line 
;assert attention line 
;deassert attention line 



;Set WDHA parameters subroutine 

calling protocol 

lea paramrec.aO ;set pointer to set parameter record 

jsr SetParam 

SetParam: . ^ 

movem.l a0-a6/d0-d7.-(sp) :save registers 

clr.w -(sp) 

bsr SCSIInterrogate 



@^ 
@2 
@3 

@4 



move.w(sp)+.dO 
beq @4 
cmp.w #-100, dO 
beq @4 
move.I #8-1. d1 
move.w#-2.d0 
jsr scsiwr 
jsr ScsiBTst 
beq @^ 
move.w{aO)+,dO 
jsr scsiwr 
jsr ScsiBTst 
beq @3 
dbra d1.@2 
move.w(aO)-»-.dO 
jsr scsiwr 



;SS15ID 

;set loop counter 
;get -2 mode code (set aid parameters) 
;send mode code to WDHA 
;test for WDHA 
;ready 

;get parameter 

;send parameter to WDHA 

;test for WDHA. 

; ready 

;check end of loop 

;get last parameter 

;send last parameter to WDHA 



movemJ 
rts 



(sp)-»-,aO-a6/dO-d7 ;restore registers 
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Set WDHA filter coefficients subroutine 
calling protocol 

lea corec.aO ;set pointer to array of coefficients 

jsr SetCoefficients 
SetCoefficients: 

movem.l aO-a6/dO-d7.-(sp) ;sava registers 



move.w#-4,dO 
jsr scsiwr 

@1 jsr ScsiBTst 
beq @1 
move.! #63, d1 

@2 move.w(aO)+.dO 
jsr scsiwr 

@3 jsr ScsiBTst 
beq @3 
sub.w #1,d1 
bne @2 
move.w(aO)+,dO 
jsr scsiwr 



;get -4* mode code (set aid coefficients) 
;send mode code to WDHA 
;test for WDHA 
;ready 

;set loop counter 

;gst parameter 

;send parameter to WDHA 

:test for WDHA 

;ready 

;check end of loop 

;get last parameter 

;send last parameter to WDHA 



movem.l 
rts 



(sp)f,aO-a6/dO-d7 ;restore registers 



Set file parameters subroutine 
calling protocol 

lea filerecaO 

jsr SetFileParams 
SetFiieParams: 

movem.l a0-a6/d0-d7,-(sp) 



;set pointer to array of 320 coefTicients 



move.w#-5,dO 
jsr scsiwr 

@1 jsr ScsiBTst 
beq @1 
move. I #319,d1 

@2 move.w(aO)+.dO 
jsr scsiwr 

@3 jsr ScsiBTst 
beq @3 
sub.w #1 .dl 
bne @2 
move.w(aO)+.dO 
jsr scsiwr 
move.w#-1 ,dO 
jsr scsiwr 
movem.l (sp)- 
rts 



;save registers 
;gat -5 mode code (set aid coefficients) 
:send mode code to WDHA 
;test for WDHA 
;ready 

:set loop counter 
:get parameter 
;send parameter to WDHA 
;test for WDHA 
;ready 

:check end of loop 

;get last parameter 
;send last parameter to WDHA 
;get -1 mode code (hearing aid mode) 
;send mode code to WDHA 
,aO-a6/dO-d7 ;restore registers 



; WDHA test subroutine 
;calling protocol 

lea paramrec.aO ;set pointer to set parameter record 

jsr wdhatest 
; upon exit: 
; d6 has the mean sum 
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; d7 has the square mean sum 

"^"^^^'"moveml aO-a6/dO-d5..{sp) .save registers 

move.w»-3.dO :get -3 mode code (test/calibrate) 

jsr scsiwr ;send mode code to WDHA 

jsr ScsiBTst -.test for WDHA 

beq @i ;ready 
move.l «-l3.d1 -.set loop counter (do all but last) 
move.w(aO)+.dO :gBt parameter 

jsr scsiwr :send parameter to WDHA 

subq.b &1,dl 

bne @2 ;check and of loop 



@1 



@2 



; read 


probe sample 


@4 


jsr ScsiBTst 




beq @4 


; read 


mean sum 




cir.l dO 




jsr scsiwr 




jsr scsird 



move.wdO.dS 
swap d6 
clr,l dO 
jsr scsiwr 
jsr scsird 
move.wdO.dS 
asl.w ^7.d6 
asr.i nl.dS 
; read the mean square sum 
cir.l dO 
jsr scsiwr 
jsr scsird 
move.wd0.d7 
swap d7 
clr.l dO 
jsr scsiwr 
jsr scsird 
move.wd0,d7 
asl.w »7,d7 
-asr.l #7,d7 
movem.l (sp)- 



;test for WDHA bit 



;write dummy to wdha 
;read high 16 bits 
;store in d6 
;get it in high word 

;write dummy to wdha 
;read low 9 bits 
;stor© in d6 

;shift it loft to the most sig word. 
;shift the whole thing right. 



pwrite dummy to wdha 
'.read high 16 bits 
;store in d7 

;get it in most sig word, 

;write dummy to wdha 
;read low 9 bits 
;store in d7 

;shift it left to the most sig word. 
;shlft the whole thing right. 
aO-a6/dO-d5 ;restore registers 



flZoftZ the 16 bit integer in dO to the hearing aid via the SCSI bus. 
input: dO contains the word to wnte. 
Output: None 
SCSINA/r: 

movem.l dO-d3..(SP) 
- move.b #abs^dck^dtn.S5800n :assert data bus 

move.w#1 .d2 
roxr.w #1 ,d2 
move.w#1 7-1 .d2 
@T: roxl.w #i.dO 
move.wdO.dl 



;set the 
;extend bit 
;sel loop counter 
;move in next bit 
.copy dO 
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and.w »1.dl innask Is bit 

move.b d1.S58000l :write to output data bus 

move b #abs-.ack>dtn,S58001 1 ;assert acknowledge (clock into wdha) 

move.b #abs*dck+dtn,$58001 1 ;deassert acknowledge (clock into wdha) 

dbra d2.@T ll^^p counter 

move.w#1000.d3 ;wrile delay 

@2 dbra d3,@2 ^ „ ' 

move.b #dbs^dck+dtn.S58001 1 ;deassert data bus and all 

movem.l (SP)+.dO-d3 
rts 

; Name: SCSIRd 

; Function: Read a word from the SCSI bus in register dO. 
; input: None 

; Output: dO contains the word red 

SCSIRd: movem.l d1-d3,-(SP) 

move #l6-1,d2 ;set loop counter 

move.b #dbS4.dck+dtn.S5800i 1 ;deassert data bus and all 

@1: asl.w #1,dO :shift 

move.b $580000.d1 ;read data bus . . . x 

move.b #dbs*atn+dck.SS80011 ;asseft attention (dock out wdha) 

and.w #2.d1 ;mask input bit (bit 1) 

asr.w #1.dl :put in position 0 

add.w dV.dO :add bit to data , . ' . ^ 

move.b #dbs+dtn+dck.S5a001 1 ;deassert attention (dock out wdha) 

move.w#250.d3 ;deassert-assert delay 

@2 dbra d3.@2 

dbra d2.@1 :*ooP counter 

movem.i (SP)+.dl-d3 

rts 

•Jest SCSI read bit (Bit 1). Returns with dO = 0 or 2 
SCSIBtst: 

* If the mouse button is pressed then stop communication 

movem.i aO-al /d0-d2,-(sp) ; save registers 

cir.w -(sp) 

^Button 

Tst.w (sp)+ 

bne StopCom 

movem.l (sp)+,aO.a1/d0-d2 

move.b #dbs+dck+dtn,S58001 1 ;deassert data bus and all 

move.b SSSOOOO.dO ;read SCSI bus 

and.w #2,d0 :mask position 1 

rts 

• If the button is pressed during communication we set the hearing aid 
to idle and return to the main loop. Note that extra parameters may 

; be left on the stack from the routines which called SCSIBtst 

StopCom: 

move.w#-5,d0 
bsr SCSIWr 
bsr SCSIWr 

movem.l (sp)*.aO-a1/da-d2 ; Restore registers 

cir I (sp)-i. : Pop SCSIBtst return address 
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bra 



EventLoop 



Name: SCSIInterrogate 

Function: Interrogate the hearing aid to determine which program tt is running, 
returning the program identifier code that the hearing aid sends back. 
If the hearing aid does not respond within a certain timeout period, the 
routine returns with zero as the result. 

Input: None 

Output: The program code (on the stack) 
'••Note: The user should push a word for the result 
SCSIInterrogate: 

movem.I dO-d7/aO-a6.-(sp) 



move.w#-1 O.dO 

bsr SCSIWr 

cir.w dO 

move.w#20000,d7 
@t sub.w #1 ,d7 

beq @2 

jsr ScsiBTst 

beq @1 
@2 jsr scsird 

move.wd0,64(sp) 

move.w#-l ,dO 

bsr SCSIWr 

movem.I {sp)+.d0-d7/a0-a6 
rts 



;interrogate WDHA for program type 



;test for WDHA 
;ready 

;read high 16 bits into dO 
;set hearing aid mode 



wo 94/23548 



PCT/US94/04004 



117 



; WDHASCSI.hdr 



XREF 


SetParam 


XBEF 


SetCoefficients 


XREF 


SetFileParams 


XREF 


SCSllnterrogate 


XREF 


wdhatest 


XREF 


SCSiWr 


XREF 


SCSIRd 


XREF 


SCSIBTst 


PROBE ECU 


9 


FELD ECU 


12 


INPUT EQU 


7 


OUTPUT 


EQU 10 
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;WDHADisk.asm file 
Include FSEqaD 

Include MacTraps.D ; Use System and ToolBox traps 
Include- ToolEquX.D : Use TooiBox equates 

Inciude SysEquXD 
Include QuickEquX.D 



XDEF 
XDEF 
XDEF 
XDEF 
XDEF 
XDEF 
XDEF 
XDEF 
XDEF 

icNamePtr 

ioFVersNum 

ioMisc 



DiskCreate 

DiskRead 

DiskWrite 

OiskEject 

DiskOpen 

DiskCtose 

DiskSetFPos 

DiskSetEOF 

DiskSetFlnfo 

equ 18 
equ 26 
equ ioRefNum+4 



;not included in .d files 
;not included in .d files 
:not included in .d files 



DiskRead: 

;assunr)es d2 contains ioRefNum 

;assumes d1 contains number of 512 byte sectors to read 
•assym^s ?il points tot ^ buffer to fill 
;returns with aO pointing to parameter block on stack 
;and with ioResult in dO 

;the number of bytes actually read is returned in d3 (long) 



moveq #ioVQElSize/2 - 1 ,dO 
©1: cir.w -{sp) 
dbra dO,@1 
move. I sp.aO 

mova.wd2,ioRefNum(aO) 



mulu 

move.l 

divu 

move.l 

_Raad 

move.l 

add 

rts 



#S12.di 

dl.ioReqCount(aO) 

#512.d1 

a1,ioBuffer(aO) 

ioActCount(aO).d3 
#ioVQE!Si2e.SP 



;make room on stack for 

;for parameter block 

;set AO for file manager call 

;and to access parameters in block 
;multiply number of sectors by 512 
;sectors required 
;restore d1 



DiskWrite: 

• ;assumes d2 contains ioRefNum 

:assumes d1 contains number of 512 byte sectors to write 

;assumes a1 points to the buffer to write 

;retums with ioResult in dO 

;and aO pointing to parameter block on stack 



BNSDOCID: <WO_ 9423548A1 1 > 
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moveq #ioVQEiSize/2 

@1: cir.w -(sp) 

dbra dO.@1 

move. I sp.aO 



l.dO 



;make room on stack for 

;for parameter block 

;set AO for file . manager call 



move.wd2,ioRefNum(aO) 



mulu 

move. I 

divu 

move. I 

.Write 

add 

rts 



#512. d1 

d1,ioReqCount(aO) 

#512. d1 

a1 JoBuffer(aO) 

#ioVQEISi2e,SP 



;and to access parameters in block 
;sectors to write ' 512 « bytes 
;blocks of 512 bytes required 
;restore d1 



OiskSetFPos: 

;assum6S d2 contains ioRefNum 

;assumes d1 contains sector number to position at. 

'.returns with ioResult in dO 

;and aO pointing to parameter block on stack 



moveq #ioVQElSi2e/2 - l.dO 
@l: cIr.w -(sp) 
dbra dO.@1 
move ! sp.aO 

move.wd2.ioRefNum(aO) 
move.w#1 joPQsMode(aO) 



mulu #512. d1 
move.I d1 .ioPosOffsat(aO) 
divu #512. d1 
_SetFPos 

add #toVQEISi2e.SP 
rts 



:mak8 room on stack for 

;for parameter block 

;set AO for file manager call 

;and to access parameters in block 
;0 at current position 
;1 relative to beginning of media 
;3 relative to current position 

;blocks of 512 bytes required 



DiskCIosa: 

;assumes d2 contains ioRefNum 
;retums with icResult in dO 
and aO pointing to parameter block on stack 



moveq #ioVQEISIze/2 - l.dO 

@1 : clr.w -(sp) 

dbra dO.@1 

move.I sp.aO 



move.wd2,ioRefNum(aO) 
_close 

add #roVQEISi2e.SP 
rts 



;make room on stack for 
;for parameter block 
;set AO for file manager call 
;and to access parameter block 

;ioRefNum in d2 from open routine 



; d3 contains the drive number to eject 
DiskEject: 
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moveq # ioVQElSi2e/2 - 1 .dO 
@1: clr.w -(sp) 
dbra dO,@1 
move. I sp.aO 
mova.w#-5.ioRefNum(aO) 

mov8.wd3,ioDrvNum{aO) 
move.w#eiectCodG.csCode(aO) 

_Eiect 

add #ioVQEISi20,SP 
rts 



DiskCreate: 

:assumes a1 pointing to file name buffer 

•returns with aO pointing to parameter block on stacic 

;d3 contains the drive number to create the file on. 

moveq #ioVQE!Size/2 - l.dO 
@i: clr.w -(sp) 
dbra dO.@1 
move.l sp.aO 

move.l a1JoNamePtr{aO) 
move.b #0.ioFVersNum{aO) 

move.wd3,ioVRefNum(aO) 

Oreato 
idd #ioVQEISi2e,SP 

rts 



;set AO for file manager call 
;and to access parameter block 
•put name pointer in parameter block 
Aversion number, always use zero 
;per page 11-81, inside mac 
;dnve # 



DiskOpen: ^ „ 

•assumes a1 pointed to file name buffer 
;retums with aO pointing to parameter block on stack 
•inRefNum in d2 and ioResult in d1 

ipon reJIlrT the drive number the file was found on 



moveq #ioVQEISize/2 - 1,dO 
@l: clr.w -(sp) 
dbra dO,@1 
'move.l sp.aO 

move.l a1,ioNamePtr{aO) 
move.b #0,ioFVersNum(aO) 

move.w#2,ioVRefNum(aO) 
jOpen 

move.w#2,d3 
move.wioR©fNum(aO).d2 
move.wioResult(aO),d1 
beq DOpenGood 
move.w#1 ;ioVRefNum{aO) 
jOpen 

move.w#1 ,d3 



;set AO for file manager call 
•and to access parameter block 
•put name pointer in parameter block 
•version number, always use zero 
•per page tl-8l. inside mac 
;external drive 

;external drive 

;save ioRefNum of file in d2 

;get io result 
'.Internal drive 
:internai drive 
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;save ioRefNum of fiiu in 62 
;get io result 



move.w ioRef Nunn{aO) .d2 
move.wioResult{aO),d1 

CXDpenGood; 

add.l #ioVQE!Si28.SP 
rts 



DiskSetEOF: 

;assumes d2 contains ioRefNum 

•assumes d1 contains position to position at (a long). 

;r8turns with ioResult in dO 

;and aO pointing to parameter block on stack 



moveq #ioVQElSize/2 - 1.dO 
@1: cir.w -{sp) 
dbra dO.@1 
move.i sp.aO 

move.wd2.ioRefNum(aO) 
move.w#1 ,ioPosMode(aO) 



move.i d1 .ioMisc(aO) 
_Set£OF 

move.wioResult(aO).dO 
add.l #ioVQElSi2e,SP 
rts 



;make room on stack for 

;for parameter block 

;set AO for file manager call 

;and to access parameters in block 
;0 at current position 
;1 relative to beginning of media 
;3 relative to current position 
;blocks of 512 bytes required 

;get io result 



DiskSetFinfo: 

;assumes a1 pointing to file name buffer 

;assumes d6 contains file creator 

:assumes d7 contains file type 

;d3 contains the drive number to create the file on. 

•returns with aO pointing to parameter block on stack 

movem.l dO-d7/aO-a6,-(sp) 

moveq #ioVQEISize/2 - l.dO 
@1: cIr.w -(sp) 

dbra dO,@1 

move.i sp,aO 



;set AO for file manager call 
;and to access parameter block 



move.i sp,a4 

move.i alpioNamePtr(aO) 

move.b #0,ioFVersNum(aO) 



move.wd3.ioVRefNum(aO) 
_GetFilelnfo 
move.i a4,a0 
move.i d7.32(a0) 
move.i d6.36(a0) 
_SetFilelnfo 
add.l #ioVQEISi2B,SP 
movem.l (sp)+,dO-d7/aO-a6 
rts 



;put name pointer in parameter block 
;ver5ion number, always use zero 
;per page H-81, inside mac 
;drive # 
;get file info 
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: WDHADisk,hdr ^ ^ 

: This file must be included if your program uses the disk commands. 

XREF DiskCreate 

XF^ DiskRead 

XREF OiskWrite 

XREF DiskEjoct 

XREF DiskOpen 

XREF DiskClose 

XREF DiskSetFPos 

XREF DiskSetEOF 

XREF DiskSetFlnfo 
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WHAT IS CLAIMED IS: 



1. A hearing aid comprising: 

a microphone for producing an input^ signal in 

response to sound; 

a plurality of channels connected to a common 
output, each channel comprising: 

a filter with preset parameters for receiving 

the input signal and for producing a filtered 

signal; 



a channel amplifier responsive to the filtered 
10 signal for producing a channel output signal; 

means for establishing a channel threshold level 
for the channel output signal; and 

means, responsive to the channel output signal 
and the channel threshold level, for increasing 

15 the gain setting of the channel amplifier up to 

a predetermined limit when the channel output 
signal falls below the channel threshold level 
and for decreasing the gain setting of the 
channel amplifier when the channel output signal 

20 rises above the channel threshold level, 

wherein the channel output signals are combined 
to produce an adaptively compressed and filtered output 
signal; and 



a transducer for producing sound as a function 
25 of the adaptively compressed and filtered output signal. 
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2- The circuit of claim 1 wherein the 
increasing and decreasing means in each of the channels 
comprises means for increasing the gain setting of the 
channel amplifier in increments having a magnitude dp and 
5 for decreasing the gain setting of the channel amplifier 
in decrements having a magnitude dm. 

3, The circuit of claim 2 wherein the 
increasing and decreasing means in each of the channels 
further comprises: 

a comparator for producing a control signal as a 
function of the level of the channel output signal being 
greater or less than the channel threshold level; 

a gain register for storing a gain setting; and 
an adder responsive to the control signal for 
increasing the gain setting in the gain register by dp 
when the channel output signal falls below the chiannel 
threshold level and for decreasing the gain setting in the 
gain register by a negative value corresponding to dm when 
the channel output signal rises above the channel 
threshold level, wherein the channel amplifier is 
responsive to the gain register for setting the gain of 
the channel amplifier as a function of the stored gain 
setting, 

4. The circuit of claim 1 wherein the channel 
amplifier comprises a two stage amplifier, the first stage 
having a variable gain and the second stage having a 
predetermined gain, 

5. The circuit of claim 1 wherein the filters 
in the channels have preset filter parameters for 
selectively altering the input signal over substantially 
all of the audible frequency range. 



10 



15 
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6. The circuit of claim 1 wherein each filter 
in the channels has preset filter parameters for 
selectively passing the input signal over a predetermined 
range of audible frequencies, each filter substantially 

5 attenuating any of the input signal not occurring in the 
predetermined range - 

7. The circuit of claim 1 further comprising: 
a second channel amplifier responsive to the 

filtered signal for producing a second channel output 
signal; and 

means for programming the gain setting of the 
second channel amplifier as a function of the gain setting 
of the first channel amplifier, 

wherein the second channel output signals are 
combined for producing a prograxmnably compressed and 
filtered output signal and wherein the transducer produces 
sound as a function of the prograimnably compressed and 
filtered output signal. 

8. The circuit of claim 7 wherein the 
programming means comprises means for varying the gain 
setting of the second channel amplifier as a function of a 
power of the gain setting of the first chaimel amplifier. 

9. The circuit of claim 7 wherein the filters 
in the channels have preset filter parameters for 
selectively altering the input signal over substantially 
all of the audible frequency range. 

10. The circuit of claim 7 wherein each filter 
in the channels has preset filter parameters for 
selectively passing the input signal over a predetermined 
range of audible frequencies, each filter sxibstantially 

5 attenuating any of the input signal not occurring in the 
predetermined range . 



5 



10 
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11. A hearing aid comprising: 

a microphone for producing an input signal in 

response to sound; 

an amplifier for receiving the input signal and 

5 for producing an output signal; 

means for establishing a threshold level for the 

output signal; 

means, responsive to the output signal and the 
threshold level, for increasing the gain setting of the 

10 amplifier up to a predetermined limit in increments having 
a magnitude dp when the output signal falls below the 
threshold level and for decreasing the gain setting of the 
amplifier in decrements having a magnitude dm when the 
output signal rises above the threshold level, and 

15 a transducer for producing sound as a function 

of the output signal . 

12. The circuit of claim 11 wherein the 
increasing and decreasing means further comprises: 

a comparator for producing a control signal as a 
function of the level of the output signal being greater 
5 or less than the threshold level; 

a gain register for storing a gain setting; and 
an adder responsive to the control signal for 
increasing the gain setting in the gain register by dp 
when the output signal falls below the threshold level and 
10 for decreasing the gain setting in the gain register by a 
negative value corresponding to dm when the output signal 
rises above the threshold level, wherein the amplifier is 
responsive to the gain register for setting the gain of 
the amplifier as a function of the stored gain setting. 

13. The circuit of claim 11 wherein the 
amplifier comprises a two stage amplifier, the first stage 
having a variable gain and the second stage having a 
predetermined gain. 
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14. The circuit of claim 11 further comprising: 
a second amplifier responsive to the input 

signal for producing a second output signal; and 

means for programming the gain setting of the 
5 second amplifier as a function of the gain setting of the 
first amplifier, 

wherein the transducer produces sound as a 
function of the second output signal • 

15. The circuit of claim 14 wherein the 
programming means comprises means for varying the gain of 
the second amplifier as a f\inction of a power of the gain 
setting of the first amplifier. 

16. An adaptive compressing and filtering 
circuit comprising a plurality of channels connected to a 
common output, each channel comprising: 

a filter with preset parameters for receiving an 
input signal in the audible frequency range for producing 
a filtered signal; 

a channel amplifier responsive to the filtered 
signal for producing a channel output signal; 

means for establishing a channel threshold level 
for the channel output signal; and 

means, responsive to the channel output signal 
and the channel threshold level, for increasing the gain 
of the channel amplifier up to a predetermined limit when 
the channel output signal falls below the channel 
threshold level and for decreasing the gain of the channel 
amplifier when the channel output signal rises above the 
channel threshold level, 

whereby the channel output signals are combined 
to produce an adapt ively compressed and filtered output 
signal , 
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17. The circuit of claim 16 wherein the 
increasing and decreasing means in each of the channels 
comprises means for increasing the gain of the channel 
amplifier in increments having a magnitude dp and for 

5 decreasing the gain of the channel amplifier in decrements 
having a magnitude dm* 

18. The circuit of claim 17 wherein the 
increasing and decreasing means in each of the channels 
further comprises: 

a comparator for producing a control signal as a 
5 function of the level of the channel output signal being 
greater or less than the channel threshold level; 

a gain register for storing a gain setting; and 
an adder responsive to the control signal for 
increasing the gain setting in the gain register by dp 
10 when the channel output signal falls below the channel 

threshold level and for decreasing the gain setting in the 
gain register by a negative value corresponding to dm when 
the channel output signal rises above tbe channel 
threshold level, wherein the channel amplifier is 
15 responsive to the gain register for setting the gain of 
the channel amplifier as a function of the stored gain 
setting. 

19. The circuit of claim 18 wherein the 
increasing and decreasing means in each channel further 
comprises a secondary register for storing the values of 
dp and dm, said adder being responsive to said register 
5 for receiving the stored values of dp and dm for 

increasing and decreasing the stored gain setting in the 
gain register. 
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20. The circuit of claim 16 wherein the channel 
amplifier comprises a two stage amplifier, the first stage 
having a variable gain and the second stage having a 
predetermined gain. 

21. The circuit of claim 16 further comprising 
means for producing a timing sequence, wherein the 
increasing and decreasing means in each channel is enabled 
in response to the timing sequence for increasing or 

5 decreasing the channel amplifier gain during a 
predetermined portion of the timing sequence. 

22. The circuit of claim 16 wherein each 
channel further comprises means for clipping the channel 
output signal at a predetermined level for producing an 
adaptively clipped and compressed channel output signal. 

23- The circuit of claim 16 wherein the filters 
in the channels have preset filter parameters for 
selectively altering the input signal over substantially 
all of the audible frequency range. 

24. The circuit of claim 16 wherein each filter 
in the channels has preset filter parameters for 
selectively passing the input signal over a predetermined 
range of audible f recjuencies, each filter substantially 

5 attenuating any of the input signal not occurring in the 
predetermined range. 

25. The circuit of claim 16 wherein the filters 
in each of the channels comprise finite impulse response 
filters . 
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26. The circuit of claim 16 wherein each 
channel further comprises: 

a second channel amplifier responsive to the 
filtered signal for producing a second channel output 

5 signal; and 

means for programming the gain setting of the 

second channel amplifier as a function of the gain of the 
first chcmnel amplifier, 

whereby the second channel output signals are 
10 combined for producing a programmably compressed and 
filtered output signal. 

27. The circuit of claim 26 wherein the 
programming means comprises means for varying the gain of 
the second channel amplifier as a function of a power of 
the gain setting of the first channel amplifier. 

28. The circuit of claim 27 wherein the 
programming means further comprises a register for storing 
a power value and wherein the programming means varies the 
gain of the second channel amplifier as a function of the 

5 value derived by raising the gain setting of the first 
channel amplifier to the power of the stored power value. 

29. The circuit of claim 26 wherein the first 
and second channel amplifiers each comprise a two stage 
amplifier, the first stage having a variable gain and the 
second stage having a preset gain. 

30. An adaptive gain amplifier circuit 
comprising: 

an amplifier for receiving an input signal in 
the audible frequency range and producing an output 
5 signal; 

means for establishing a threshold level for the 
output signal; and 
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means / responsive to the output signal and the 

threshold level/ for increasing the gain of the amplifier 

10 up to a predetermined limit in increments having a 

magnitude dp when the output signal falls below the 

threshold level and for decreasing the gain of the 

« 

amplifier in decrements having a magnitude dm when the 
output signal rises above the threshold level, 
15 whereby the output signal is compressed as a 

function of the ratio of dm over dp to produce an 
adaptively compressed output signal. 

31. The circuit of claim 30 wherein the 
increasing and decreasing means comprises; 

a comparator for producing a control signal, as a 
fiinction of the level of the output signal being greater 
5 or less than the threshold level; 

a gain register for storing a gain setting; and 
an adder responisive to the control signal for 
increasing the gain setting in the gain register by dp 
when the output signal falls below the threshold level and 
10 for decreasing the gain setting in the gain register by a 
negative value corresponding to dm when the output signal 
rises above the threshold level, wherein the amplifier is 
responsive to the gain register for setting the gain of 
the amplifier as a function of the stored gain setting. 

32. The circuit of claim 31 wherein the 
increasing and decreasing means further comprises means 
for producing a timing sequence, said increasing and 
decreasing means being enabled in response to the timing 

5 sequence for increasing or decreasing the stored gain 
setting in the gain register during a predetermined 
portion of the timing sequence. 
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33. The circuit of claim 31 wherein the 
increasing and decreasing means further comprises a 
secondary register for storing the values of dp and dm and 
wherein the adder is responsive to said register for 

5 receiving the stored values of dp and dm for increasing 
and decreasing the stored gain setting in the gain 
register. 

34. The circuit of claim 31 wherein the 
amplifier comprises a two stage amplifier, the first stage 
having a variable gain and the second stage having a 
predetermined gain. 

35. The circuit of claim 30 wherein the 
amplifier comprises a two stage amplifier, the first stage 
having a variable gain and the second stage having a 
predetermined gain. 

36 o The circuit of claim 30 further comprising 
means for clipping the adapt ively compressed output signal 
at a predetermined level and for producing an adaptively 
clipped compressed output signal. 

37 o A programmable compressive gain amplifier 

circuit comprising: 

a first amplifier for receiving an input signal 
in the audible frequency range and for producing an 
5 amplified signal; 

means for establishing a threshold level for the 

amplified signal; 

means, responsive to the amplified signal and 
the threshold level, for increasing the gain setting of 
10 the first amplifier up to a predetermined limit when the 
amplified signal falls below the threshold level and for 
decreasing the gain setting of the first amplifier when 
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the amplified signal rises above the threshold level, 

thereby compressing the amplified signal; 
15 a second amplifier for receiving the input 

signal and for producing an output signal; and 

means for programming the gain setting of the 

second amplifier as a function of the gain setting of the 

first ctmplifier, 
20 whereby the output signal is programmably 

compressed. 

38. The circuit of claim 37 wherein the 
increasing smd decreasing means comprises means for 
increasing the gain of the first amplifier in increments 
having a magnitude dp and for decreasing the gain of the 

5 first amplifier in decrements having a magnitude dm. 

39. The circuit of claim 38 wherein the 
increasing and decreasing meems further comprises: 

a comparator for producing a control signal as a 
fiinction of the level of the amplified signal being 
5 . greater or less than the threshold level; 

a gain register for storing a gain setting; and 
an adder responsive to the control signal for 
increasing the gain setting in the gain register by dp 
when the amplified signal falls below the threshold level 
10 and for decreasing the gain setting in the gain register 

by a negative value corresponding to dm when the amplified 
signal rises above the threshold level, wherein the first 
amplifier is responsive to the gain register for setting 
the gain of the first amplifier as a function of the 
15 stored gain setting. 

40. The circuit of claim 39 wherein the 
increasing and decreasing means further comprises means 
for producing a timing sequence, said increasing and 
decreasing means being enabled in response to the timing 
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5 sequence for increasing or decreasing the stored gain 
setting in the gain register during a predetermined 
portion of the timing sequence. 

41. The circuit of claim 39 wherein the 
increasing and decreasing means further comprises a 
secondary register for storing the values of dp and dm and 
wherein the adder is responsive to said register for 

5 receiving the stored values of dp and dm for increasing or 
decreasing the stored gain setting in the gain register. 

42. The circuit of claim 37 wherein the 
progrsunming means comprises means for varying the gain of 
the second amplifier as a function of a power of the gain 
setting of the first amplifier. 

43. The circuit of claim 42 wherein the 
programming means further comprises a register for storing 
a power value and wherein the programming means varies the 
gain of the second amplifier as a function of the value 

5 derived by raising the gain setting of the first amplifier 
to the power of the stored power value. 

44 o The circuit of claim 37 wherein the first 
and second amplifiers each comprise a two stage amplifier, 
the first stage having a variaLble gain and the second 
stage having a preset gain- 

45, The circuit of claim 37 further comprising 
means for clipping the adaptively compressed output signal 
at a predetermined level and for producing an adaptively 
clipped compressed output signal. 
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46. A hearing aid comprising: 

a microphone for producing an input signal in 
response to sound; 

a filter with variable parameters for receiving 
5 the input signal and for producing an adaptively filtered 
signal ; 

an amplifier for receiving the adaptively 
filtered signal and for producing an adaptively filtered 
output signal; 

10 means for detecting a characteristic of the 

input signal; 

means, responsive to the detecting meatns, for 
varying the parameters of the variable filter and for 
varying the gain of the amplifier as functions of the 
15 detected characteristic; and 

a transducer for producing sound as a ftanction 
of the adaptively filtered output signal. 

47. The circuit of claim 46 wherein the varying 
means comprises a memory for storing a table of 
characteristic values, related filter parameters, and 
related amplifier gain values; wherein the memory is 

5 responsive to the detecting means for recalling a filter 
parameter and amplifier gain value as functions of the 
detected characteristic; and wherein the variable filter 
is responsive to the memory for setting the parameters of 
the variable filter as a function of the recalled filter 
10 parameter and wherein the amplifier is responsive to the 

memory for setting the gain of the amplifier as a function 
of the recalled gain value. 

48. A hearing aid comprising; 

a microphone for producing an input signal in 
response to sound; 

a plurality of channels connected to a common 
* 5 output, each comprising a filter with preset parameters 
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for receiving the input signal and for producing a 
filtered signal and an amplifier responsive to the 
filtered signal for producing a channel output signal; 
a second filter with preset parameters 

10 responsive to the input signal for producing a 
characteristic signal ; 

a detector responsive to the characteristic 
signal for producing a control signal, the detector 
including means for programming the time constant of the 

15 detector; 

means responsive to the detector for producing a 
log value representative of the control signal? and 

a memory for storing a preselected table of log 
values and gain values; wherein the memory is responsive 
20 to the log value producing means for selecting a gain 
value for each of the amplifiers in the channels as a 
function of the produced log value, and wherein each of 
the amplifiers in the channels is responsive to the memory 
for separately varying the gain of the respective 
25 amplifier as a function of the respective selected gain 
value; and 

a transducer for producing sound as a function 
of the combined channel output signals. 

49. An adaptive compressing and filtering 
circuit comprising; 

a plurality of channels connected to a common 
output, each channel comprising a filter with preset 
5 parameters for receiving an input signal in the audible 
frequency range and for producing a filtered signal, and a 
channel amplifier responsive to the filtered signal for 
producing an output signal; 

means for detecting a characteristic of the 
10 output signal in each channel; and 

means, responsive to the detecting means, for 
separately varying the gains of the amplifiers in each of 
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the channels to compress the output signal as a function 
of the detected characteristic, 
15 whereby the output signals in -the channels are 

combined to produce an adaptively compressed and filtered 
output: s ignal . 

50. The circuit of claim 49 wherein the channel 
amplifiers each comprise a two stage amplifier, wherein 
the first stage has a predetermined gain for defining an 
operating range for the respective channel and the second 
5 stage has a variable gain responsive to the varying means. 

51- The circuit of claim 49 wherein the varying 
means further comprises means for sequentially modifying 
the gain setting in each of the channels from first to 
last as a function of the level of the input signal, 

52. The circuit of claim 49 wherein the filters 
in the channels have preset filter parameters for 
selectively altering the input signal over substantially 
all of the audible frequency range. 

53. The circuit of claim 49 wherein each filter 
in the channels has preset filter parameters for 
selectively passing the input signal over a predetermined 
range of audible frequencies, each filter substantially 

5 attenuating any of the input signal not occurring in the 
predetermined range. 

54. The circuit of claim 49 wherein the filters 
in each of the channels comprise finite impulse response 
filters. 
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55. The circuit of claim 49 wherein the 
detecting means further comprises means for establishing a 
channel threshold level for the output signal in each 
channel; and wherein the varying means further comprises 
5 means for increasing the gain of each amplifier up to a 
predetermined limit when the output signal in the 
respective channel falls below the channel threshold level 
and for decreasing the gain of said amplifier when said 
output signal rises above said channel threshold level. 

56. The circuit of claim 55 wherein the 
increasing and decreasing means comprises means for 
increasing the gains of the amplifiers in increments 
having a magnitude dp and for decreasing the gains of the 

5 amplifiers in decrements having a magnitude dm. 

57 . The circuit of claim 56 wherein the 
increasing and decreasing means further comprises: 

a comparator for producing a control signal as a 
function of the level of the output signal in a channel 
5 being greater or less than the channel threshold level; 

a gain register for storing a gain setting for 

each amplifier; and 

an adder responsive to the control signal for 
increasing the gain setting for an amplifier by dp when 

10 the output signal in the respective channel falls below 
the channel threshold level and for decreasing the gain 
setting for the amplifier by a negative value 
corresponding to dm when the output signal in the channel 
rises above the channel threshold level, wherein said 

15 amplifier is responsive to the gain register for setting 
the gain of said amplifier as a function of said stored 
gain setting. 
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58. The circuit of claim 57 wherein the 
increasing and decreasing means further comprises a 
secondary register for storing the values of dp and dm, 
and wherein the adder is responsive to the secondary 

5 register for receiving the stored values of dp and dm for 
increasing and decreasing the stored gain settings in the 
gain register. 

59. The circuit of claim 49 further comprising' 
means for producing a timing sequence, wherein the varying 
means is enabled in response to the timing sequence for 
varying the gains of the amplifiers during a predetermined 

5 portion of the timing sequence. 

60. The circuit of claim 49 wherein each 
channel further comprises means for clipping the output 
signal in each channel at a predetermined level for 
producing an adaptively clipped and compressed output 

5 signal. 

61. An adaptive filtering circuit comprising: 
a plurality of channels connected to a common 

output, each comprising a filter with preset parameters 
for receiving an input signal in the audible frequency 
5 range for producing a filtered signal and an amplifier 
responsive to the filtered signal for producing a channel 
output signal; 

a second filter with preset parameters 
responsive to the input signal for producing a 
10 characteristic signal; and 

a detector responsive to the characteristic 
signal for producing a control signal, the detector 
including means for programming the time constant of the 
detector; 

15 means responsive to the detector for producing a 

log value representative of the control signal; and 
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a memory for storing a preselected table of log 
values and gain values; wherein the memory is responsive 
to the log value producing means for selecting a gain 

20 value for each of the amplifiers in the channels as a 
function of the produced log value, and wherein each of 
the amplifiers in the channels is responsive to the memory 
for separately varying the gain of the respective 
amplifier as a function of the respective selected gain 

25 value, whereby the channel output signals are combined to 
produce an adaptively filtered output signal. 

62. The circuit of claim 61 wherein the filters 
in the channels have preset filter parameters for 
selectively altering the input signal over substantially 
all of the audible frequency range, 

63. The circuit of claim 61 wherein each filter 
in the channels has preset filter parameters for 
selectively passing the input signal over a predetermined 
range of audible frequencies, each filter substantially 

5 attenuating any of the input signal not occurring in the 
predetermined range, 

64. The circuit of claim 61 wherein the filters 
in each of the channels comprise finite impulse response 
filters, and wherein the filter in the detecting means 
comprises a finite impulse response filter. 

65. The circuit of claim 61 wherein the second 
filter is constituted by one of the filters in one of the 
channels . 

66. An adaptive filtering circuit comprising: 

a filter with variable parameters for receiving 
an input signal in the audible frequency range and for 
producing an adaptively filtered signal; 
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5 an amplifier for receiving the adaptively 

filtered signal and for producing an adaptively filtered 
output signal; 

means for detecting a characteristic of the 
input signal; and 
10 means, responsive to the detecting means, for 

varying the parameters of the variable filter and for 
varying the gain of the amplifier as functions of the 
detected characteristic. 

67. The circuit of claim 66 wherein the 
detecting means comprises; 

a filter responsive to the input signal for 
producing a characteristic signal; and 
5 a detector responsive to the characteristic 

signal for producing a control signal, the detector 
including means for programming the time constemt of the 
detector; and wherein the varying means comprises means 
for varying the parameters of the variable filter and for 
10 varying the gain of the amplifier as a function of the 
control signal. 

68. The circuit of claim 67 wherein the varying 
means comprises: 

means responsive to the detector for producing a 
log value representative of the control signal; and 
5 a memory for storing a preselected table of log 

values and related filter parcmeters and gain values, 

said memory being responsive to the log value 
producing means for selecting a filter parameter and a 
gain value as a function of the produced log value, said 
10 variable filter being responsive to the memory for setting 
the parameters of the variable filter as a function of the 
selected filter parameter, and said amplifier being 
responsive to the memory for setting the gain of the 
amplifier as a function of the selected gain value. 
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69. The circuit of claim 66 wherein the varying 
means comprises a memory for storing a table of 
characteristic values, related filter parameters, and 
related amplifier gain values; wherein the memory is 
5 responsive to the detecting means for recalling a filter 
parameter and amplifier gain value as functions of the 
detected characteristic; and wherein the variable filter 
is responsive to the memory for setting the parameters of 
the variable filter as a function of the recalled filter , 
10 parameter and wherein the amplifier is responsive to the 
memory for setting the gain of the amplifier as a function 
of the recalled gain value. 

70. The circuit of claim 66 further comprising: 
a limiter for receiving the adaptively filtered 

output signal and producing a limited output signal; and 
a second filter with variable parameters for 
5 receiving the limited output signal and producing a 

filtered output signal, wherein the parameters of the 

second variable filter vary as a function of the 

parameters of the first variable filter. 

71. The circuit of claim 70 wherein the varying 
means comprises a memory for storing a table of 
characteristic values, related filter parameters, and 
related amplifier gain values; wherein the memory is 
5 responsive to the detecting means for recalling a filter 
parameter and amplifier gain value as functions of the 
detected characteristic; and wherein the first and second 
variable filters are responsive to the memory for setting 
the parameters of said filters as a function of the 
10 recalled filter parameter and wherein the amplifier is 
responsive to the memory for setting the gain of the 
amplifier as a function of the recalled gain value. 
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